Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Changed calls to reflect corrected config names.

  • Loading branch information...
commit 9fcebe4787faee2373632a12beab5d545952d8a5 1 parent 672323b
@davorg authored
Showing with 17 additions and 16 deletions.
  1. +17 −16 t/01_basic.t
View
33 t/01_basic.t
@@ -1,40 +1,41 @@
use Test::More tests => 6;
use FindBin qw($Bin);
use_ok('Perlanet::Simple');
+
chdir $Bin;
ok(my $p = Perlanet::Simple->new_with_config(configfile => 'testrc'),
'Object created');
isa_ok($p, 'Perlanet');
-if (-e $p->opml_file) {
- unlink $p->opml_file;
+if (-e $p->opml) {
+ unlink $p->opml;
}
-if (-e $p->feed_file) {
- unlink $p->feed_file;
+if (-e $p->feed->{file}) {
+ unlink $p->feed->{file};
}
-if (-e $p->template_output) {
- unlink $p->cfg->{page}{file};
+if (-e $p->page->{file}) {
+ unlink $p->page->{file};
}
$p->run;
-ok(-e $p->feed_file, 'Feed created');
-ok(-e $p->template_output, 'Page created');
+ok(-e $p->feed->{file}, 'Feed created');
+ok(-e $p->page->{file}, 'Page created');
SKIP: {
- skip 'XML::OPML::SimpleGen not installed', 1 unless $p->opml_file;
- ok(-e $p->opml_file, 'OPML created');
+ skip 'XML::OPML::SimpleGen not installed', 1 unless $p->opml;
+ ok(-e $p->opml, 'OPML created');
}
-if (-e $p->opml_file) {
- unlink $p->opml_file;
+if (-e $p->opml) {
+ unlink $p->opml;
}
-if (-e $p->feed_file) {
- unlink $p->feed_file;
+if (-e $p->feed->{file}) {
+ unlink $p->feed->{file};
}
-if (-e $p->template_output) {
- unlink $p->template_output;
+if (-e $p->page->{file}) {
+ unlink $p->page->{file};
}
Please sign in to comment.
Something went wrong with that request. Please try again.