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'
