2013-09-08 00:29:34 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
|
use warnings;
|
|
|
|
|
use strict;
|
2013-09-08 00:50:53 +02:00
|
|
|
use Test::More tests => 5;
|
2013-09-08 00:29:34 +02:00
|
|
|
use utf8;
|
|
|
|
|
|
|
|
|
|
BEGIN { use_ok("IkiWiki"); }
|
|
|
|
|
|
|
|
|
|
$IkiWiki::config{verbose} = 1;
|
|
|
|
|
$IkiWiki::config{syslog} = 1;
|
2013-09-08 00:50:53 +02:00
|
|
|
|
|
|
|
|
$IkiWiki::config{wikiname} = 'ASCII';
|
|
|
|
|
is(debug('test'), '', 'plain ASCII syslog');
|
2013-09-08 00:29:34 +02:00
|
|
|
$IkiWiki::config{wikiname} = 'not ⒶSCII';
|
2016-01-21 08:25:25 +01:00
|
|
|
is(debug('𝗧ĕṡҭ'), '', 'UTF8 syslog');
|
2013-09-08 00:50:53 +02:00
|
|
|
my $orig = $IkiWiki::config{wikiname};
|
|
|
|
|
is(debug('test'), '', 'check for idempotency');
|
|
|
|
|
is($IkiWiki::config{wikiname}, $orig, 'unchanged config');
|
