t/syslog.t

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use Test::More tests => 5;
   5 use utf8;
   6
   7 BEGIN { use_ok("IkiWiki"); }
   8
   9 $IkiWiki::config{verbose} = 1;
  10 $IkiWiki::config{syslog} = 1;
  11
  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');