[Templates-cvs] cvs commit: TT3/t base.t
cvs@template-toolkit.org
cvs@template-toolkit.org
Thu, 04 Dec 2003 11:22:59 +0000
cvs 03/12/04 11:22:59
Modified: t base.t
Log:
* changed Template::Toolkit to Template::TT3
Revision Changes Path
1.3 +8 -8 TT3/t/base.t
Index: base.t
===================================================================
RCS file: /template-toolkit/TT3/t/base.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- base.t 2003/12/03 18:27:29 1.2
+++ base.t 2003/12/04 11:22:59 1.3
@@ -2,14 +2,14 @@
#
# t/base.t
#
-# Test the Template::Toolkit::Base.pm module.
+# Test the Template::TT3::Base.pm module.
#
# Written by Andy Wardley <abw@wardley.org>
#
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
-# $Id: base.t,v 1.2 2003/12/03 18:27:29 abw Exp $
+# $Id: base.t,v 1.3 2003/12/04 11:22:59 abw Exp $
#
#========================================================================
@@ -17,10 +17,10 @@
use warnings;
use lib qw( ./lib ../lib );
-use Template::Toolkit::Base;
+use Template::TT3::Base;
use Test::More tests => 44;
-$Template::Toolkit::Base::DEBUG = grep(/^--?d(ebug)?/, @ARGV);
+$Template::TT3::Base::DEBUG = grep(/^--?d(ebug)?/, @ARGV);
my ($pkg, $obj);
@@ -30,7 +30,7 @@
#------------------------------------------------------------------------
# instantiate a base class object and test error reporting/returning
-$pkg = 'Template::Toolkit::Base';
+$pkg = 'Template::TT3::Base';
$obj = $pkg->new() || die $pkg->error();
ok( $obj, 'created a base class object' );
@@ -87,7 +87,7 @@
#------------------------------------------------------------------------
package Template::Test::Warning;
-use base qw( Template::Toolkit::Base );
+use base qw( Template::TT3::Base );
use vars qw( $WARNING );
package main;
@@ -116,7 +116,7 @@
#------------------------------------------------------------------------
package Template::Test::Fail;
-use base qw( Template::Toolkit::Base );
+use base qw( Template::TT3::Base );
use vars qw( $ERROR $WARNING );
sub init {
@@ -139,7 +139,7 @@
#------------------------------------------------------------------------
package Template::Test::Name;
-use base qw( Template::Toolkit::Base );
+use base qw( Template::TT3::Base );
use vars qw( $ERROR );
sub init {