cvs commit: parrot/t/pmc nci.t

[Simon Glover]

cvsuser     05/01/06 16:39:24

  Modified:    t/pmc    nci.t
  Log:
   Test for reloading an already loaded library
  
  Revision  Changes    Path
  1.61      +22 -2     parrot/t/pmc/nci.t
  
  Index: nci.t
  ===================================================================
  RCS file: /cvs/public/parrot/t/pmc/nci.t,v
  retrieving revision 1.60
  retrieving revision 1.61
  diff -u -r1.60 -r1.61
  --- nci.t     19 Nov 2004 13:45:32 -0000      1.60
  +++ nci.t     7 Jan 2005 00:39:24 -0000       1.61
  @@ -1,7 +1,7 @@
   #! perl -w
   
   # Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
  -# $Id: nci.t,v 1.60 2004/11/19 13:45:32 leo Exp $
  +# $Id: nci.t,v 1.61 2005/01/07 00:39:24 scog Exp $
   
   =head1 NAME
   
  @@ -24,7 +24,7 @@
   
   =cut
   
  -use Parrot::Test tests => 47;
  +use Parrot::Test tests => 48;
   use Parrot::Config;
   
   SKIP: {
  @@ -2101,6 +2101,26 @@
   'non_existing' is not defined
   OUTPUT
   
  +output_is( << 'CODE', << 'OUTPUT', "loading same library twice" );
  +      loadlib P1, "libnci"
  +      if P1, OK1
  +      print "not "
  +OK1:  print "ok 1\n"
  +      loadlib P2, "libnci"
  +      if P2, OK2
  +      print "not "
  +OK2:  print "ok 2\n"
  +      issame I0, P1, P2
  +      if I0, OK3
  +      print "not "
  +OK3:  print "ok 3\n"
  +      end
  +CODE
  +ok 1
  +ok 2
  +ok 3
  +OUTPUT
  +
   } # SKIP
   
   output_is(<< 'CODE', << 'OUTPUT', "opcode 'does'");