[svn:dbi] r14437 - dbi/trunk/t

Author: timbo
Date: Mon Sep 20 15:41:44 2010
New Revision: 14437

Modified:
   dbi/trunk/t/40profile.t

Log:
Adjusted t/40profile.t for extra line added to zvg_* test by VMS patch

Modified: dbi/trunk/t/40profile.t
==============================================================================
--- dbi/trunk/t/40profile.t	(original)
+++ dbi/trunk/t/40profile.t	Mon Sep 20 15:41:44 2010
@@ -79,7 +79,7 @@
 my $t_file = __FILE__;
 $dbh->do("set foo=1"); my $line = __LINE__;
 my $expected_caller = "40profile.t line $line";
-$expected_caller .= " via ${1}40profile.t line 3"
+$expected_caller .= " via ${1}40profile.t line 4"
     if $0 =~ /(zv\w+_)/;
 print Dumper($dbh->{Profile});
 is_deeply sanitize_tree($dbh->{Profile}), bless {
@@ -87,8 +87,8 @@
 	'Data' => { 'do' => {
 	    $expected_caller => [ 1, 0, 0, 0, 0, 0, 0 ]
 	} }
-} => 'DBI::Profile';
-#die Dumper $dbh->{Profile};
+} => 'DBI::Profile'
+    or warn Dumper $dbh->{Profile};
 
 
 # can turn it on at connect