Skip to content
This repository
Browse code

Changed calls to reflect corrected config names.

  • Loading branch information...
commit 9fcebe4787faee2373632a12beab5d545952d8a5 1 parent 672323b
Dave Cross authored August 21, 2010

Showing 1 changed file with 17 additions and 16 deletions. Show diff stats Hide diff stats

  1. 33  t/01_basic.t
33  t/01_basic.t
... ...
@@ -1,40 +1,41 @@
1 1
 use Test::More tests => 6;
2 2
 use FindBin qw($Bin);
3 3
 use_ok('Perlanet::Simple');
  4
+
4 5
 chdir $Bin;
5 6
 ok(my $p = Perlanet::Simple->new_with_config(configfile => 'testrc'),
6 7
    'Object created');
7 8
 isa_ok($p, 'Perlanet');
8 9
 
9  
-if (-e $p->opml_file) {
10  
-  unlink $p->opml_file;
  10
+if (-e $p->opml) {
  11
+  unlink $p->opml;
11 12
 }
12 13
 
13  
-if (-e $p->feed_file) {
14  
-  unlink $p->feed_file;
  14
+if (-e $p->feed->{file}) {
  15
+  unlink $p->feed->{file};
15 16
 }
16 17
 
17  
-if (-e $p->template_output) {
18  
-  unlink $p->cfg->{page}{file};
  18
+if (-e $p->page->{file}) {
  19
+  unlink $p->page->{file};
19 20
 }
20 21
 
21 22
 $p->run;
22 23
 
23  
-ok(-e $p->feed_file, 'Feed created');
24  
-ok(-e $p->template_output, 'Page created');
  24
+ok(-e $p->feed->{file}, 'Feed created');
  25
+ok(-e $p->page->{file}, 'Page created');
25 26
 SKIP: {
26  
-  skip 'XML::OPML::SimpleGen not installed', 1 unless $p->opml_file;
27  
-  ok(-e $p->opml_file, 'OPML created');
  27
+  skip 'XML::OPML::SimpleGen not installed', 1 unless $p->opml;
  28
+  ok(-e $p->opml, 'OPML created');
28 29
 }
29 30
 
30  
-if (-e $p->opml_file) {
31  
-  unlink $p->opml_file;
  31
+if (-e $p->opml) {
  32
+  unlink $p->opml;
32 33
 }
33 34
 
34  
-if (-e $p->feed_file) {
35  
-  unlink $p->feed_file;
  35
+if (-e $p->feed->{file}) {
  36
+  unlink $p->feed->{file};
36 37
 }
37 38
 
38  
-if (-e $p->template_output) {
39  
-  unlink $p->template_output;
  39
+if (-e $p->page->{file}) {
  40
+  unlink $p->page->{file};
40 41
 }

0 notes on commit 9fcebe4

Please sign in to comment.
Something went wrong with that request. Please try again.