]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - t/syslog.t
Thanks for the tip
[git.ikiwiki.info.git] / t / syslog.t
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More tests => 5;
5 use utf8;
7 BEGIN { use_ok("IkiWiki"); }
9 $IkiWiki::config{verbose} = 1;
10 $IkiWiki::config{syslog} = 1;
12 $IkiWiki::config{wikiname} = 'ASCII';
13 is(debug('test'), '', 'plain ASCII syslog');
14 $IkiWiki::config{wikiname} = 'not ⒶSCII and has %s in it';
15 is(debug('𝗧ĕṡҭ'), '', 'UTF8 syslog');
16 my $orig = $IkiWiki::config{wikiname};
17 is(debug('test'), '', 'check for idempotency');
18 is($IkiWiki::config{wikiname}, $orig, 'unchanged config');