develooper Front page | perl.cvs.parrot | Postings from December 2008

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

From:
rurban
Date:
December 25, 2008 07:59
Subject:
[svn:parrot] r34349 - trunk/t/library
Message ID:
20081225155756.DB5BDCBADF@x12.develooper.com
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'



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About