Changeset 8556

Timestamp:

10/03/09 03:57:33 (2 years ago)

Author:

Sewi

Message:

Fixed most of the test errors

File:

• trunk/Padre/t/75-perl-beginner.t (modified) (4 diffs)

trunk/Padre/t/75-perl-beginner.t

@@ -3 +3 @@
 use strict;
 use warnings;
+
+# Create test environment...
+package local::t75;
+
+sub LineFromPosition {
+ return 0;
+}
+
+package Wx;
+
+sub gettext {
+ return $_[0];
+}
+
+# The real test...
+package main;
+
 use Test::More;
 use Test::NoWarnings;
@@ -9 +26 @@
 
 my %TEST = (
-    'split1.pl'                    => "The second parameter of split is a string, not an array",
-    'split2.pl'                    => "The second parameter of split is a string, not an array",
-    'warning.pl'                   => "You need to write use warnings (with an s at the end) and not use warning.",
+    'split1.pl'                    => "Line 1: The second parameter of split is a string, not an array",
+    'split2.pl'                    => "Line 1: The second parameter of split is a string, not an array",
+    'warning.pl'                   => "Line 1: You need to write use warnings (with an s at the end) and not use warning.",
     'boolean_expressions_or.pl'    => 'TODO',
     'boolean_expressions_pipes.pl' => 'TODO',
@@ -21 +38 @@
     'grep_always_true.pl'          => 'TODO',
     'my_argv.pl' => 'TODO',                                          # "my" variable @ARGV masks global variable at ...
-    'else_if.pl' => "'else if' is wrong syntax, correct if 'elsif'.",
+    'else_if.pl' => "Line 1: 'else if' is wrong syntax, correct if 'elsif'.",
 
     # @ARGV, $ARGV, @INC, %INC, %ENV, %SIG, @ISA,
@@ -31 +48 @@
 
 use Padre::Document::Perl::Beginner;
-my $b = Padre::Document::Perl::Beginner->new;
+my $b = Padre::Document::Perl::Beginner->new(document => {editor => bless {},'local::t75'});
 
 isa_ok $b, 'Padre::Document::Perl::Beginner';