[Templates-cvs] cvs commit: TT3/t provider.t store.t
cvs@template-toolkit.org
cvs@template-toolkit.org
Wed, 24 Mar 2004 14:14:30 +0000
cvs 04/03/24 14:14:30
Modified: t provider.t store.t
Log:
* minor tweakos
Revision Changes Path
1.5 +2 -1 TT3/t/provider.t
Index: provider.t
===================================================================
RCS file: /template-toolkit/TT3/t/provider.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- provider.t 2004/03/23 14:20:44 1.4
+++ provider.t 2004/03/24 14:14:30 1.5
@@ -9,7 +9,7 @@
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
-# $Id: provider.t,v 1.4 2004/03/23 14:20:44 abw Exp $
+# $Id: provider.t,v 1.5 2004/03/24 14:14:30 abw Exp $
#
#========================================================================
@@ -304,6 +304,7 @@
my $foo = $prov->fetch('foo') || die $prov->error();
ok( $foo, 'provided file foo' );
+
my $text = $foo->text()
|| die $foo->error();
ok( $text, 'got foo text' );
1.2 +1 -3 TT3/t/store.t
Index: store.t
===================================================================
RCS file: /template-toolkit/TT3/t/store.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- store.t 2004/03/24 14:09:32 1.1
+++ store.t 2004/03/24 14:14:30 1.2
@@ -9,7 +9,7 @@
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
-# $Id: store.t,v 1.1 2004/03/24 14:09:32 abw Exp $
+# $Id: store.t,v 1.2 2004/03/24 14:14:30 abw Exp $
#
#========================================================================
@@ -122,7 +122,6 @@
File::Spec->catfile('there', 'bar') . '.ttc',
'there/bar.ttc' );
-
$store = Template::Store->new({
directory => File::Spec->catfile('every', 'where'),
extension => '-ttc',
@@ -130,7 +129,6 @@
is( $store->filename('baz'),
File::Spec->catfile('every', 'where', 'baz') . '-ttc',
'every/where/baz-ttc' );
-
__END__