From 9293d2c7064c7c6aafb84ef2351396c68f3b9551 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Antoine=20Beaupr=C3=A9?= Date: Sat, 7 Sep 2013 18:29:34 -0400 Subject: failing test case --- t/syslog.t | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 t/syslog.t (limited to 't') diff --git a/t/syslog.t b/t/syslog.t new file mode 100644 index 000000000..28272e2dc --- /dev/null +++ b/t/syslog.t @@ -0,0 +1,14 @@ +#!/usr/bin/perl +use warnings; +use strict; +use Test::More tests => 3; +use utf8; + +BEGIN { use_ok("IkiWiki"); } + +$IkiWiki::config{verbose} = 1; +$IkiWiki::config{syslog} = 1; +$IkiWiki::config{wikiname} = 'ascii'; +is(debug('test'), ''); +$IkiWiki::config{wikiname} = 'not ⒶSCII'; +is(debug('test'), ''); -- cgit v1.2.3 From 2a143bfd0be3f286249a19304bb908e3b0d63cc1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Antoine=20Beaupr=C3=A9?= Date: Sat, 7 Sep 2013 18:50:53 -0400 Subject: don't edit config setting, but a temporary variable, complete and unbreak tests --- t/syslog.t | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 't') diff --git a/t/syslog.t b/t/syslog.t index 28272e2dc..ffe8635b3 100644 --- a/t/syslog.t +++ b/t/syslog.t @@ -1,14 +1,18 @@ #!/usr/bin/perl use warnings; use strict; -use Test::More tests => 3; +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'), ''); + +$IkiWiki::config{wikiname} = 'ASCII'; +is(debug('test'), '', 'plain ASCII syslog'); $IkiWiki::config{wikiname} = 'not ⒶSCII'; -is(debug('test'), ''); +is(debug('test'), '', 'UTF8 syslog'); +my $orig = $IkiWiki::config{wikiname}; +is(debug('test'), '', 'check for idempotency'); +is($IkiWiki::config{wikiname}, $orig, 'unchanged config'); -- cgit v1.2.3