diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/podcast.t | 4 | ||||
-rw-r--r-- | t/syslog.t | 18 |
2 files changed, 20 insertions, 2 deletions
diff --git a/t/podcast.t b/t/podcast.t index 1052aea70..f036c3113 100755 --- a/t/podcast.t +++ b/t/podcast.t @@ -3,10 +3,10 @@ use warnings; use strict; BEGIN { - eval q{use XML::Feed; use HTML::Parser; use HTML::LinkExtor}; + eval q{use XML::Feed; use HTML::Parser; use HTML::LinkExtor; use File::MimeInfo}; if ($@) { eval q{use Test::More skip_all => - "XML::Feed and/or HTML::Parser not available"}; + "XML::Feed and/or HTML::Parser or File::MimeInfo not available"}; } else { eval q{use Test::More tests => 136}; diff --git a/t/syslog.t b/t/syslog.t new file mode 100644 index 000000000..ffe8635b3 --- /dev/null +++ b/t/syslog.t @@ -0,0 +1,18 @@ +#!/usr/bin/perl +use warnings; +use strict; +use Test::More tests => 5; +use utf8; + +BEGIN { use_ok("IkiWiki"); } + +$IkiWiki::config{verbose} = 1; +$IkiWiki::config{syslog} = 1; + +$IkiWiki::config{wikiname} = 'ASCII'; +is(debug('test'), '', 'plain ASCII syslog'); +$IkiWiki::config{wikiname} = 'not â’¶SCII'; +is(debug('test'), '', 'UTF8 syslog'); +my $orig = $IkiWiki::config{wikiname}; +is(debug('test'), '', 'check for idempotency'); +is($IkiWiki::config{wikiname}, $orig, 'unchanged config'); |