/[webpac2]/trunk/t/3-normalize.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.t

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

revision 980 by dpavlin, Sat Nov 3 13:33:19 2007 UTC revision 983 by dpavlin, Sun Nov 4 11:12:38 2007 UTC
# Line 3  Line 3 
3  use strict;  use strict;
4  use blib;  use blib;
5    
6  use Test::More tests => 351;  use Test::More tests => 352;
7    
8  BEGIN {  BEGIN {
9          use_ok( 'WebPAC::Test' );          use_ok( 'WebPAC::Test' );
# Line 162  sub test_s { Line 162  sub test_s {
162    
163          ok(! _set_lookup( undef ), "set_lookup(undef)");          ok(! _set_lookup( undef ), "set_lookup(undef)");
164    
165          _set_rec( $rec1 );          _set_ds( $rec1 );
166    
167            is_deeply( get_ds, $rec1, 'get_ds' );
168    
169          cmp_ok( join(",", rec2('200','a') ), 'eq', '200a,200a*2', 'join rec2' );          cmp_ok( join(",", rec2('200','a') ), 'eq', '200a,200a*2', 'join rec2' );
170          cmp_ok( join(",", rec2('200','a'), rec2('200','b') ), 'eq', '200a,200a*2,200b', 'join rec2 rec2' );          cmp_ok( join(",", rec2('200','a'), rec2('200','b') ), 'eq', '200a,200a*2,200b', 'join rec2 rec2' );
# Line 358  sub test_s { Line 360  sub test_s {
360    
361          #ok(! lookup('non-existent'), 'lookup non-existant' );          #ok(! lookup('non-existent'), 'lookup non-existant' );
362    
363          _set_rec( $rec2 );          _set_ds( $rec2 );
364    
365          test_s(qq{          test_s(qq{
366                  search_display('Title',                  search_display('Title',
# Line 445  sub test_s { Line 447  sub test_s {
447          my $rules = qq{ search('mixed', rec('200') ) };          my $rules = qq{ search('mixed', rec('200') ) };
448                    
449          _clean_ds();          _clean_ds();
450          _set_rec( $rec );          _set_ds( $rec );
451          test_s( $rules );          test_s( $rules );
452          ok($ds = _get_ds(), "get_ds");          ok($ds = _get_ds(), "get_ds");
453          is_deeply( $ds, {          is_deeply( $ds, {
# Line 462  sub test_s { Line 464  sub test_s {
464    
465          # wird and non-valid structure which is supported anyway          # wird and non-valid structure which is supported anyway
466          _clean_ds();          _clean_ds();
467          _set_rec({          _set_ds({
468                  '200' => [{                  '200' => [{
469                          'a' => '200a',                          'a' => '200a',
470                  },                  },
# Line 512  sub test_s { Line 514  sub test_s {
514                  my ($msg, $rec, $rules, $struct) = @_;                  my ($msg, $rec, $rules, $struct) = @_;
515    
516                  _clean_ds();                  _clean_ds();
517                  _set_rec($rec);                  _set_ds($rec);
518    
519                  foreach my $r (split(/;/, $rules)) {                  foreach my $r (split(/;/, $rules)) {
520                          $r =~ s/[\s\n\r]+/ /gs;                          $r =~ s/[\s\n\r]+/ /gs;
# Line 621  sub test_s { Line 623  sub test_s {
623          sub test_rule {          sub test_rule {
624                  my ($msg, $rec, $rule, $struct) = @_;                  my ($msg, $rec, $rule, $struct) = @_;
625                  _clean_ds();                  _clean_ds();
626                  _set_rec( $rec );                  _set_ds( $rec );
627                  $rule =~ s/\\/\\/gs;                  $rule =~ s/\\/\\/gs;
628                  my $r = test_s( $rule );                  my $r = test_s( $rule );
629                  diag "for ", dump($rec), " got:\n", dump($r), "\nexpect:\n" if ($debug > 1);                  diag "for ", dump($rec), " got:\n", dump($r), "\nexpect:\n" if ($debug > 1);
Legend:
Removed from v.980  
changed lines
  Added in v.983
  ViewVC Help
Powered by ViewVC 1.1.26