/[webpac2]/trunk/t/3-normalize-set.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/t/3-normalize-set.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 475 by dpavlin, Sat May 13 12:07:46 2006 UTC revision 476 by dpavlin, Sat May 13 12:37:35 2006 UTC
# Line 2  Line 2 
2    
3  use strict;  use strict;
4    
5  use Test::More tests => 42;  use Test::More tests => 43;
6  use Test::Exception;  use Test::Exception;
7  use Cwd qw/abs_path/;  use Cwd qw/abs_path/;
8  use blib;  use blib;
# Line 144  sub test_s { Line 144  sub test_s {
144          no strict 'subs';          no strict 'subs';
145          use WebPAC::Normalize::Set;          use WebPAC::Normalize::Set;
146    
147            ok(! set_lookup( undef ), "set_lookup(undef)");
148    
149          set_rec( $rec1 );          set_rec( $rec1 );
150    
151          cmp_ok( join(",", rec2('200','a') ), 'eq', '200a,200a*2', 'join rec2' );          cmp_ok( join(",", rec2('200','a') ), 'eq', '200a,200a*2', 'join rec2' );
Legend:
Removed from v.475  
changed lines
  Added in v.476
  ViewVC Help
Powered by ViewVC 1.1.26