File: util.t

package info (click to toggle)
libapache2-authcookie-perl 3.32-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 496 kB
  • sloc: perl: 1,560; sh: 101; makefile: 28
file content (25 lines) | stat: -rwxr-xr-x 484 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
#!/usr/bin/env perl
#
# tests for Apache::AuthCookie::Util
#

use strict;
use Test::More tests => 2;

# don't use_ok, this needs to load at compile time.
use_ok 'Apache::AuthCookie::Util' or exit 1;

subtest is_blank => sub {
    plan tests => 8;

    Apache::AuthCookie::Util->import('is_blank');

    ok is_blank(' ');
    ok is_blank('');
    ok is_blank("\t");
    ok is_blank("\n");
    ok is_blank("\r\n");
    ok is_blank(undef);
    ok !is_blank(0);
    ok !is_blank('a');
};