[svn:parrot] r41237 - trunk/examples/nci

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sat Sep 12 16:57:44 2009
New Revision: 41237
URL: https://trac.parrot.org/parrot/changeset/41237

Log:
[examples] try harder to locate mysql library and add show more info during test

Modified:
   trunk/examples/nci/Mysql.pir
   trunk/examples/nci/mysqltest.pir

Modified: trunk/examples/nci/Mysql.pir
==============================================================================
--- trunk/examples/nci/Mysql.pir	Sat Sep 12 16:44:49 2009	(r41236)
+++ trunk/examples/nci/Mysql.pir	Sat Sep 12 16:57:44 2009	(r41237)
@@ -1,4 +1,4 @@
-# Copyright (C) 2008, Parrot Foundation.
+# Copyright (C) 2008-2009, Parrot Foundation.
 # $Id$
 
 =head1 TITLE
@@ -81,6 +81,9 @@
     clientlib = loadlib 'libmysqlclient'
     $I0 = defined clientlib
     if $I0 goto libloaded
+    clientlib = loadlib 'libmysqlclient.so.15'
+    $I0 = defined clientlib
+    if $I0 goto libloaded
     fail('Cannot load mysql client lib')
 libloaded:
     set_global 'clientlib', clientlib

Modified: trunk/examples/nci/mysqltest.pir
==============================================================================
--- trunk/examples/nci/mysqltest.pir	Sat Sep 12 16:44:49 2009	(r41236)
+++ trunk/examples/nci/mysqltest.pir	Sat Sep 12 16:57:44 2009	(r41237)
@@ -1,4 +1,4 @@
-# Copyright (C) 2008, Parrot Foundation.
+# Copyright (C) 2008-2009, Parrot Foundation.
 # $Id$
 
 =head1 TITLE
@@ -38,9 +38,11 @@
     say $S0
     exit 1
 good:
+    say 'connect...'
 
     m.'connect'('localhost', 'parrot', 'baDworD', 'parrot')
 
+    say 'query...'
     m.'query'('select * from hello;')
 
     .local pmc r