From a9fd781a502c606fd709038a0d3909c61c5a4eca Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 7 Aug 2010 15:36:39 +0200 Subject: Initial module test (new/isa/can) --- t/50-www-efa.t | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 t/50-www-efa.t (limited to 't') diff --git a/t/50-www-efa.t b/t/50-www-efa.t new file mode 100644 index 0000000..f7a7410 --- /dev/null +++ b/t/50-www-efa.t @@ -0,0 +1,33 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.010; + +use Test::More tests => 6; + +BEGIN { + use_ok('WWW::Efa'); +} +require_ok('WWW::Efa'); + +my $conf_default = { + from => ['Essen', 'HBf'], + to => ['Koeln', 'HBf'], +}; +my $post_default = { + place_origin => 'Essen', + name_origin => 'HBf', + type_origin => 'stop', + place_destination => 'Koeln', + name_destination => 'HBf', + type_destination => 'stop', +}; + +my $efa = new_ok('WWW::Efa' => [%{$conf_default}]); + +can_ok($efa, qw{new submit parse connections}); + +is_deeply($efa->{'config'}, $conf_default); +is_deeply($efa->{'post'}, $post_default); + +$efa = WWW::Efa->new(); -- cgit v1.2.3