diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/t4034-diff-words.sh | 1 | ||||
-rw-r--r-- | t/t4034/perl/expect | 13 | ||||
-rw-r--r-- | t/t4034/perl/post | 22 | ||||
-rw-r--r-- | t/t4034/perl/pre | 22 |
4 files changed, 58 insertions, 0 deletions
diff --git a/t/t4034-diff-words.sh b/t/t4034-diff-words.sh index c3b1c481c..37aeab0d5 100755 --- a/t/t4034-diff-words.sh +++ b/t/t4034-diff-words.sh @@ -301,6 +301,7 @@ test_language_driver html test_language_driver java test_language_driver objc test_language_driver pascal +test_language_driver perl test_language_driver php test_language_driver python test_language_driver ruby diff --git a/t/t4034/perl/expect b/t/t4034/perl/expect new file mode 100644 index 000000000..a1deb6b6a --- /dev/null +++ b/t/t4034/perl/expect @@ -0,0 +1,13 @@ +<BOLD>diff --git a/pre b/post<RESET> +<BOLD>index f6610d3..e8b72ef 100644<RESET> +<BOLD>--- a/pre<RESET> +<BOLD>+++ b/post<RESET> +<CYAN>@@ -4,8 +4,8 @@<RESET> + +package Frotz;<RESET> +sub new {<RESET> + my <GREEN>(<RESET>$class<GREEN>, %opts)<RESET> = <RED>shift<RESET><GREEN>@_<RESET>; + return bless { <GREEN>xyzzy => "nitfol", %opts<RESET> }, $class; +}<RESET> + +__END__<RESET> diff --git a/t/t4034/perl/post b/t/t4034/perl/post new file mode 100644 index 000000000..e8b72ef5d --- /dev/null +++ b/t/t4034/perl/post @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use strict; + +package Frotz; +sub new { + my ($class, %opts) = @_; + return bless { xyzzy => "nitfol", %opts }, $class; +} + +__END__ +=head1 NAME + +frotz - Frotz + +=head1 SYNOPSIS + + use frotz; + + $nitfol = new Frotz(); + +=cut diff --git a/t/t4034/perl/pre b/t/t4034/perl/pre new file mode 100644 index 000000000..f6610d37b --- /dev/null +++ b/t/t4034/perl/pre @@ -0,0 +1,22 @@ +#!/usr/bin/perl + +use strict; + +package Frotz; +sub new { + my $class = shift; + return bless {}, $class; +} + +__END__ +=head1 NAME + +frotz - Frotz + +=head1 SYNOPSIS + + use frotz; + + $nitfol = new Frotz(); + +=cut |