[svn:parrot] r34349 - trunk/t/library

Author: rurban
Date: Thu Dec 25 07:57:56 2008
New Revision: 34349

Modified:
   trunk/t/library/pg.t

Log:

Workaround missing Test::Builder::is in pg.t


Modified: trunk/t/library/pg.t
==============================================================================
--- trunk/t/library/pg.t	(original)
+++ trunk/t/library/pg.t	Thu Dec 25 07:57:56 2008
@@ -242,7 +242,8 @@
     test.'ok'(1, 'notice receiver called')
     # res ought to be a PGresult struct
     $S0 = typeof res
-    test.'is'($S0, 'UnManagedStruct', 'notice callback got a struct')
+    $I0 = $S0 == 'UnManagedStruct'
+    test.'ok'($I0, 'notice callback got a struct')
 
     .local pmc st
     st = get_root_global ['parrot';'Pg'], 'PQresultStatus'

• [svn:parrot] r34349 - trunk/t/library by rurban