root/ttdiff/trunk/t/00_ttdiff.t

Revision 605 (checked in by miyagawa, 17 years ago)

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 use strict;
2 use Test::More tests => 2;
3
4 my $same = qx($^X ttdiff t/foo.html t/bar.html);
5 is $same, '';
6
7 my $diff = qx($^X ttdiff t/foo.html t/baz.html);
8 like $diff, qr/baz | html/;
9
10
Note: See TracBrowser for help on using the browser.