Author: timbo
Date: Thu Jun 28 06:12:22 2007
New Revision: 9689
Modified:
dbi/trunk/Makefile.PL
dbi/trunk/t/41prof_dump.t
Log:
Delete inapropriate test from t/41prof_dump.t
Add "make faq" for fetching and checking in the dbi.tiddlyspot.com faq
Modified: dbi/trunk/Makefile.PL
==============================================================================
--- dbi/trunk/Makefile.PL (original)
+++ dbi/trunk/Makefile.PL Thu Jun 28 06:12:22 2007
@@ -322,6 +322,12 @@
$(RM_F) $(roadmap_pm)
$(CP) Roadmap.pod $(roadmap_pm)
+faq:
+ : checkin any local changes not already checked in before overwriting
+ svn commit --message "dbi.tiddlyspot.com FAQ update"
dbi.tiddlyspot.com.html
+ wget --ignore-length --output-document=dbi.tiddlyspot.com.html
--timestamping http://dbi.tiddlyspot.com/download
+ svn commit --message "dbi.tiddlyspot.com FAQ update"
dbi.tiddlyspot.com.html
+
checkkeywords:
$(RM_RF) blib
find . -type f \( -name .svn -prune -o -name \*.pm -o -name \*.PL -o
-name \*.pl \) \
Modified: dbi/trunk/t/41prof_dump.t
==============================================================================
--- dbi/trunk/t/41prof_dump.t (original)
+++ dbi/trunk/t/41prof_dump.t Thu Jun 28 06:12:22 2007
@@ -18,7 +18,7 @@
plan skip_all => 'profiling not supported for DBI::PurePerl';
}
else {
- plan tests => 16;
+ plan tests => 15;
}
}
@@ -59,6 +59,7 @@
# wrote the profile to disk?
ok( -s "dbi.prof", 'Profile is on disk and nonzero size' );
+# XXX We're breaking encapsulation here
open(PROF, "dbi.prof") or die $!;
my @prof = <PROF>;
close PROF;
@@ -76,8 +77,6 @@
like( $prof[1], qr{^Path\s+=\s+\[\s+\]}, 'Found the Path');
ok( $prof[2] =~ m{^Program\s+=\s+(\S+)}, 'Found the Program');
-is( $1, $0, 'Program matches' );
-
# check that expected key is there
like(join('', @prof), qr/\+\s+1\s+\Q$sql\E/m);
