root/lang/perl/WWW-JMA-Earthquake/trunk/t/90_operation.t @ 34834

use strict;
use warnings;
use Test::Declare;
    plan tests => blocks;
use WWW::JMA::Earthquake;

describe 'instance tests' => run {
  my $wje = WWW::JMA::Earthquake->new();
  init {
    $wje->parse_info;
  };

  test 'データが持ってこれてるかテスト' => run {
    isa_ok( $wje,
            'WWW::JMA::Earthquake',
            'load WWW::JMA::Earthquake test');
    my $data = $wje->get_info();
    isnt('',$data->{year},   '気象庁発表 年情報 取得');
    isnt('',$data->{month},  '気象庁発表 月情報 取得');
    isnt('',$data->{i_day},  '気象庁発表 日付情報 取得');
    isnt('',$data->{i_hour}, '気象庁発表 時間 情報 取得');
    isnt('',$data->{i_min},  '気象庁発表 分情報 取得');

    isnt('',$data->{a_day},  '地震発生 日付情報 取得');
    isnt('',$data->{a_hour}, '地震発生 時間情報 取得');
    isnt('',$data->{a_min},  '地震発生 分情報 取得');

    SKIP : {
      skip q{震源が絞れてない時がある場合はスキップ！} , 1
        if !defined $data->{area};
      isnt('',$data->{area},  '地震発生 震源情報 取得');
    };

    SKIP : {
      skip q{マグニチュード情報が発表されてない場合はスキップ！} , 1
        if !defined $data->{magnitude};
      isnt('',$data->{magnitude},  'マグニチュード情報 取得');
    };
    SKIP : {
      skip q{最大震度情報が発表されてない場合はスキップ！} , 1
        if !defined $data->{shindo};
      isnt('',$data->{shindo},'最大震度情報 取得');
    };

    isnt('',$data->{discription},'地震情報 テキスト取得');
    isnt('',$data->{fullintext},'地震情報 各地域震度情報');

  };

  cleanup {
    $wje = undef;
  };
};

1;