[svn:dbi] rev 1080 - dbi/trunk/t

[timbo]

Author: timbo
Date: Mon Jun 13 01:50:25 2005
New Revision: 1080

Modified:
   dbi/trunk/t/41prof_dump.t
Log:
test from Sam re DBI:ProfileDumper


Modified: dbi/trunk/t/41prof_dump.t
==============================================================================
--- dbi/trunk/t/41prof_dump.t   (original)
+++ dbi/trunk/t/41prof_dump.t   Mon Jun 13 01:50:25 2005
@@ -15,7 +15,7 @@ BEGIN {
                plan skip_all => 'profiling not supported for DBI::PurePerl';
        }
        else {
-               plan tests => 11;
+               plan tests => 12;
        }
 }
 
@@ -37,6 +37,14 @@ my $sth = $dbh->prepare($sql);
 isa_ok( $sth, 'DBI::st' );
 $sth->execute(".");
 
+# check that flush_to_disk doesn't change Path if Path is undef (it
+# did before 1.49)
+{ 
+    local $dbh->{Profile}->{Path} = undef;
+    $sth->{Profile}->flush_to_disk();
+    is($dbh->{Profile}->{Path}, undef);
+}
+
 $sth->{Profile}->flush_to_disk();
 while ( my $hash = $sth->fetchrow_hashref ) {}