Changeset 852

Timestamp:

11/09/08 05:42:32 (3 years ago)

Author:

szabgab

Message:

some more unit tests for Padre::Document

Location:

trunk/t

Files:

• 70-document.t (modified) (2 diffs)
• lib/Padre/Editor.pm (modified) (1 diff)

trunk/t/70-document.t

@@ -5 +5 @@
 use Test::NeedsDisplay;
 use Test::More;
+use File::Spec  ();
 use t::lib::Padre;
 use t::lib::Padre::Editor;
@@ -13 +14 @@
 use Padre::Document;
 
-my $editor = t::lib::Padre::Editor->new;
-my $d = Padre::Document->new(editor => $editor);
+my $editor_1 = t::lib::Padre::Editor->new;
+my $doc_1 = Padre::Document->new(editor => $editor_1);
+
+SCOPE: {
+    isa_ok($doc_1, 'Padre::Document');
+    ok(not(defined $doc_1->filename), 'no filename');
+    BEGIN { $tests += 2; }
+}
+
+#my $editor_2 = t::lib::Padre::Editor->new;
+#my $file_2   = File::Spec->catfile('eg', 'no_such_file.txt');
+#my $doc_2 = Padre::Document->new(
+#       editor   => $editor_2,
+#       filename => $file_2,
+#   );
+#SCOPE: {
+#   isa_ok($doc_2, 'Padre::Document');
+#    BEGIN { $tests += 1; }
+#}
+#
 
 
+my $editor_3 = t::lib::Padre::Editor->new;
+my $file_3   = File::Spec->catfile('eg', 'hello_world.pl');
+my $doc_3 = Padre::Document->new(
+        editor   => $editor_3,
+        filename => $file_3,
+    );
 SCOPE: {
-    isa_ok($d, 'Padre::Document');
-    BEGIN { $tests += 1; }
+    isa_ok($doc_3, 'Padre::Document');
+    is($doc_3->filename, $file_3, 'filename');
+    BEGIN { $tests += 2; }
 }
 
+

trunk/t/lib/Padre/Editor.pm

@@ -17 +17 @@
 }
 
-#sub ConvertEOLs {
-#}
+sub ConvertEOLs {
+}
+
+sub  GetText {
+}
+
 
 1;