default PID directry change

[keitairc/keitairc.git] / t / 02_ClientInfo.t

diff --git a/t/02_ClientInfo.t b/t/02_ClientInfo.t
index fb29a37..49b05aa 100644 (file)
--- a/t/02_ClientInfo.t
+++ b/t/02_ClientInfo.t
@@ -1,11 +1,9 @@
 # -*- mode: perl; coding: utf-8 -*-
-# $Id: 02_ClientInfo.t,v 1.1 2008-08-02 18:35:54 morimoto Exp $
-# $Source: /home/ishikawa/work/keitairc/tmp/keitairc/t/02_ClientInfo.t,v $
 # Copyright (c) 2003-2008 Jun Morimoto <morimoto@mrmt.net>
 # This program is covered by the GNU General Public License 2
 use strict;
 use warnings;
-use Test::More tests => 52;
+use Test::More 'no_plan';
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 
@@ -16,6 +14,12 @@ BEGIN {
        use_ok('Keitairc::ClientInfo');
 }
 
+can_ok('Keitairc::ClientInfo',
+       qw/new user_agent is_ezweb is_docomo is_webkit is_softbank
+       is_emobile is_emobile_mobilebrowser is_emobile_openbrowser
+       is_mobile softbank_serial docomo_foma_icc docomo_imodeid
+       au_subscriber_id emobile_userid serial_key cookie_available/);
+
 # au
 {
        my $header = new HTTP::Headers;
@@ -46,7 +50,7 @@ BEGIN {
        ok($ci->is_mobile(), 'au is_mobile()');
        ok($ci->is_ezweb(), 'au is_ezweb()');
        ok(!$ci->is_docomo(), 'au is_docomo()');
-       ok(!$ci->is_ipod(), 'au is_ipod()');
+       ok(!$ci->is_webkit(), 'au is_webkit()');
        ok(!$ci->is_softbank(), 'au is_softbank()');
        ok(!$ci->is_emobile(), 'au is_emobile()');
        ok(!$ci->is_emobile_mobilebrowser(), 'au is_emobile_mobilebrowser()');
@@ -54,9 +58,9 @@ BEGIN {
        ok(!$ci->softbank_serial(), 'au softbank_serial()');
        ok(!$ci->docomo_foma_icc(), 'au docomo_foma_icc()');
        ok(!$ci->docomo_imodeid(), 'au docomo_imodeid()');
-       ok($ci->au_subscriber_id() eq $subscriber_id, 'au au_subscriber_id()');
+       is($ci->au_subscriber_id(), $subscriber_id, 'au au_subscriber_id()');
        ok(!$ci->emobile_userid(), 'au emobile_userid()');
-       ok($ci->serial_key() eq $subscriber_id, 'au serial_key()');
+       is($ci->serial_key(), $subscriber_id, 'au serial_key()');
        ok($ci->cookie_available(), 'au cookie_available()');
 }
 
@@ -78,14 +82,14 @@ BEGIN {
        ok($ci->is_mobile(), 'NTT DoCoMo FOMA is_mobile()');
        ok(!$ci->is_ezweb(), 'NTT DoCoMo FOMA is_ezweb()');
        ok($ci->is_docomo(), 'NTT DoCoMo FOMA is_docomo()');
-       ok(!$ci->is_ipod(), 'NTT DoCoMo FOMA is_ipod()');
+       ok(!$ci->is_webkit(), 'NTT DoCoMo FOMA is_webkit()');
        ok(!$ci->is_softbank(), 'NTT DoCoMo FOMA is_softbank()');
        ok(!$ci->is_emobile(), 'NTT DoCoMo FOMA is_emobile()');
        ok(!$ci->is_emobile_mobilebrowser(), 'NTT DoCoMo FOMA is_emobile_mobilebrowser()');
        ok(!$ci->is_emobile_openbrowser(), 'NTT DoCoMo FOMA is_emobile_openbrowser()');
        ok(!$ci->softbank_serial(), 'NTT DoCoMo FOMA softbank_serial()');
-       ok($ci->docomo_foma_icc() eq $icc, 'NTT DoCoMo FOMA docomo_foma_icc()');
-       ok($ci->docomo_imodeid() eq $imodeid, 'NTT DoCoMo FOMA docomo_imodeid()');
+       is($ci->docomo_foma_icc(), $icc, 'NTT DoCoMo FOMA docomo_foma_icc()');
+       is($ci->docomo_imodeid(), $imodeid, 'NTT DoCoMo FOMA docomo_imodeid()');
        ok(!$ci->au_subscriber_id(), 'NTT DoCoMo FOMA au_subscriber_id()');
        ok(!$ci->emobile_userid(), 'NTT DoCoMo FOMA emobile_userid()');
        ok(!$ci->serial_key(), 'NTT DoCoMo FOMA serial_key()');
@@ -108,17 +112,17 @@ BEGIN {
        ok($ci->is_mobile(), 'SoftBank is_mobile()');
        ok(!$ci->is_ezweb(), 'SoftBank is_ezweb()');
        ok(!$ci->is_docomo(), 'SoftBank is_docomo()');
-       ok(!$ci->is_ipod(), 'SoftBank is_ipod()');
+       ok(!$ci->is_webkit(), 'SoftBank is_webkit()');
        ok($ci->is_softbank(), 'SoftBank is_softbank()');
        ok(!$ci->is_emobile(), 'SoftBank is_emobile()');
        ok(!$ci->is_emobile_mobilebrowser(), 'SoftBank is_emobile_mobilebrowser()');
        ok(!$ci->is_emobile_openbrowser(), 'SoftBank is_emobile_openbrowser()');
-       ok($ci->softbank_serial() eq $serial, 'SoftBank softbank_serial()');
+       is($ci->softbank_serial(), $serial, 'SoftBank softbank_serial()');
        ok(!$ci->docomo_foma_icc(), 'SoftBank docomo_foma_icc()');
        ok(!$ci->docomo_imodeid(), 'SoftBank docomo_imodeid()');
        ok(!$ci->au_subscriber_id(), 'SoftBank au_subscriber_id()');
        ok(!$ci->emobile_userid(), 'SoftBank emobile_userid()');
-       ok($ci->serial_key() eq $serial, 'SoftBank serial_key()');
+       is($ci->serial_key(), $serial, 'SoftBank serial_key()');
        ok($ci->cookie_available(), 'SoftBank cookie_available()');
 }