Merge branch 'cvs' of github.com:schmonz/ikiwiki into cvs
[ikiwiki] / t / yesno.t
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More tests => 11;
5
6 BEGIN { use_ok("IkiWiki"); }
7
8 # note: yesno always accepts English even if localized.
9 # So no need to bother setting locale to C.
10
11 ok(IkiWiki::yesno("yes") == 1);
12 ok(IkiWiki::yesno("Yes") == 1);
13 ok(IkiWiki::yesno("YES") == 1);
14
15 ok(IkiWiki::yesno("no") == 0);
16 ok(IkiWiki::yesno("No") == 0);
17 ok(IkiWiki::yesno("NO") == 0);
18
19 ok(IkiWiki::yesno("1") == 1);
20 ok(IkiWiki::yesno("0") == 0);
21 ok(IkiWiki::yesno("mooooooooooo") == 0);
22
23 ok(IkiWiki::yesno(undef) == 0);