t4034 (diff --word-diff): add a minimum Perl drier test vector
Signed-off-by: Junio C Hamano <gitster@pobox.com>
Junio C Hamano committed
Jan 18, 2011 at 09:43 UTC
5269edf1702b7375a287d5bbbb3c1b1f3a8aa765
4 files changed
+58
t/t4034-diff-words.sh
+1
@@ -301,6 +301,7 @@ test_language_driver html
301
test_language_driver java
302
test_language_driver objc
303
test_language_driver pascal
304
+test_language_driver perl
305
test_language_driver php
306
test_language_driver python
307
test_language_driver ruby
t/t4034/perl/expect
new
+13
@@ -0,0 +1,13 @@
1
+<BOLD>diff --git a/pre b/post<RESET>
2
+<BOLD>index f6610d3..e8b72ef 100644<RESET>
3
+<BOLD>--- a/pre<RESET>
4
+<BOLD>+++ b/post<RESET>
5
+<CYAN>@@ -4,8 +4,8 @@<RESET>
6
+
7
+package Frotz;<RESET>
8
+sub new {<RESET>
9
+ my <GREEN>(<RESET>$class<GREEN>, %opts)<RESET> = <RED>shift<RESET><GREEN>@_<RESET>;
10
+ return bless { <GREEN>xyzzy => "nitfol", %opts<RESET> }, $class;
11
+}<RESET>
12
+
13
+__END__<RESET>
t/t4034/perl/post
new
+22
@@ -0,0 +1,22 @@
1
+#!/usr/bin/perl
2
+
3
+use strict;
4
+
5
+package Frotz;
6
+sub new {
7
+ my ($class, %opts) = @_;
8
+ return bless { xyzzy => "nitfol", %opts }, $class;
9
+}
10
+
11
+__END__
12
+=head1 NAME
13
+
14
+frotz - Frotz
15
+
16
+=head1 SYNOPSIS
17
+
18
+ use frotz;
19
+
20
+ $nitfol = new Frotz();
21
+
22
+=cut
t/t4034/perl/pre
new
+22
@@ -0,0 +1,22 @@
1
+#!/usr/bin/perl
2
+
3
+use strict;
4
+
5
+package Frotz;
6
+sub new {
7
+ my $class = shift;
8
+ return bless {}, $class;
9
+}
10
+
11
+__END__
12
+=head1 NAME
13
+
14
+frotz - Frotz
15
+
16
+=head1 SYNOPSIS
17
+
18
+ use frotz;
19
+
20
+ $nitfol = new Frotz();
21
+
22
+=cut