[Templates-cvs] cvs commit: TT3/t document.t
cvs@template-toolkit.org
cvs@template-toolkit.org
Tue, 16 Dec 2003 12:39:51 +0000
cvs 03/12/16 12:39:50
Modified: t document.t
Log:
* disabled test for line numbering which is now managed by scanner
Revision Changes Path
1.3 +11 -2 TT3/t/document.t
Index: document.t
===================================================================
RCS file: /template-toolkit/TT3/t/document.t,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- document.t 2003/12/11 15:09:16 1.2
+++ document.t 2003/12/16 12:39:49 1.3
@@ -9,7 +9,7 @@
# This is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
-# $Id: document.t,v 1.2 2003/12/11 15:09:16 abw Exp $
+# $Id: document.t,v 1.3 2003/12/16 12:39:49 abw Exp $
#
#========================================================================
@@ -20,7 +20,7 @@
use Template::TT3::Base;
use Template::TT3::Document;
use Template::TT3::Constants qw( :chomp );
-use Test::More tests => 60;
+use Test::More tests => 2;
my $DEBUG = grep /^--?d(ebug)?$/, @ARGV;
@@ -32,6 +32,14 @@
# test document creation and initial setup
ok( $doc, 'created document' );
is( $doc->name(), 'testdoc', 'name is testdoc' );
+
+
+#------------------------------------------------------------------------
+# line number management is now implemented by the scanner class (for now)
+#------------------------------------------------------------------------
+
+__END__
+
is( $doc->line(), 1, 'on line 1' );
is( $doc->position(), 1, 'position line 1' );
is( $doc->location(), 'testdoc line 1', 'location testdoc line 1' );
@@ -130,6 +138,7 @@
is( $doc->line(), 1, 'testdata line 1' );
is( $doc->position(), 1, 'testdata position line 1' );
is( $doc->location(), 'testdata line 1', 'location testdata line 1' );
+
__END__
This is the first line