Commit | Line | Data |
---|---|---|
68a4c8b9 DM |
1 | # Test the user_agent method. |
2 | use lib 't/lib'; | |
3 | use Test::More 'no_plan'; | |
4 | use CGI; | |
5 | ||
6 | my $q = CGI->new; | |
7 | ||
8 | is($q->user_agent, undef, 'user_agent: undef test'); | |
9 | ||
10 | $ENV{HTTP_USER_AGENT} = 'mark'; | |
11 | is($q->user_agent, 'mark', 'user_agent: basic test'); | |
12 | ok($q->user_agent('ma.*'), 'user_agent: positive regex test'); | |
13 | ok(!$q->user_agent('BOOM.*'), 'user_agent: negative regex test'); | |
14 | ||
15 |