[poe-commits] poe/t 03_aliases.t,1.8,1.9

[<rc...@us...>]

Update of /cvsroot/poe/poe/t
In directory usw-pr-cvs1:/tmp/cvs-serv1252/t

Modified Files:
	03_aliases.t 
Log Message:
Applied jinzougen's patch to have alias_list return an arbitrary alias
in scalar context.


Index: 03_aliases.t
===================================================================
RCS file: /cvsroot/poe/poe/t/03_aliases.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** 03_aliases.t	8 Jul 2002 23:10:28 -0000	1.8
--- 03_aliases.t	27 Aug 2002 04:12:33 -0000	1.9
***************
*** 7,11 ****
  use lib qw(./lib ../lib);
  use TestSetup;
! &test_setup(20);
  
  use POSIX qw (:errno_h);
--- 7,11 ----
  use lib qw(./lib ../lib);
  use TestSetup;
! &test_setup(21);
  
  use POSIX qw (:errno_h);
***************
*** 85,88 ****
--- 85,91 ----
             );
    print "ok 14\n";
+ 
+   print "not " if $kernel->alias_list($session) eq 2;
+   print "ok 15\n";
  }
  
***************
*** 115,122 ****
  
    print "not " unless $heap->{idle_count} == 1;
!   print "ok 18\n";
  
    print "not " unless $heap->{zombie_count} == 1;
!   print "ok 19\n";
  }
  
--- 118,125 ----
  
    print "not " unless $heap->{idle_count} == 1;
!   print "ok 19\n";
  
    print "not " unless $heap->{zombie_count} == 1;
!   print "ok 20\n";
  }
  
***************
*** 148,152 ****
          $_[KERNEL]->alias_set( 'a_sample_alias' );
          print "not " if $_[KERNEL]->alias_remove( 'a_sample_alias' );
!         print "ok 16\n";
        },
        _signal =>
--- 151,155 ----
          $_[KERNEL]->alias_set( 'a_sample_alias' );
          print "not " if $_[KERNEL]->alias_remove( 'a_sample_alias' );
!         print "ok 17\n";
        },
        _signal =>
***************
*** 159,163 ****
    );
  
! print "ok 17\n";
  
  # Now run the kernel until there's nothing left to do.
--- 162,166 ----
    );
  
! print "ok 18\n";
  
  # Now run the kernel until there's nothing left to do.
***************
*** 166,170 ****
  $poe_kernel->run();
  
! print "ok 20\n";
  
  exit;
--- 169,173 ----
  $poe_kernel->run();
  
! print "ok 21\n";
  
  exit;