summaryrefslogtreecommitdiff
path: root/t/50-www-efa.t
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2011-05-23 09:12:12 +0200
committerDaniel Friesel <derf@finalrewind.org>2011-05-23 09:12:12 +0200
commitc2190255f0c25118c118583c8555a9f5cecd948d (patch)
treeae66681faaaa89410bef741f2266ecb50f137ad1 /t/50-www-efa.t
parentb09b7e7cdc9507f7996a8e3af18f3375cc7ddbea (diff)
Code cleanup, remove WWW::Efa::Error stuff for now (to be reimplemented)
Diffstat (limited to 't/50-www-efa.t')
-rw-r--r--t/50-www-efa.t28
1 files changed, 4 insertions, 24 deletions
diff --git a/t/50-www-efa.t b/t/50-www-efa.t
index 8144026..29e4af5 100644
--- a/t/50-www-efa.t
+++ b/t/50-www-efa.t
@@ -3,7 +3,7 @@ use strict;
use warnings;
use 5.010;
-use Test::More tests => 131;
+use Test::More tests => 59;
BEGIN {
use_ok('WWW::Efa');
@@ -38,11 +38,6 @@ sub is_efa_post {
"$ck => $cv: conf ok",
);
- is(
- $efa->{'error'}, undef,
- "$ck => $cv: No error",
- );
-
foreach my $ref (@post) {
my ($key, $value) = @{$ref};
if (not defined $efa->{'post'}->{"key"} and
@@ -62,6 +57,7 @@ sub is_efa_post {
sub is_efa_err {
my ($key, $val, $str) = @_;
+ return; # FIXME error handling
my $efa = efa_new([$key, $val]);
my $val_want = $val;
@@ -75,29 +71,13 @@ sub is_efa_err {
"conf ok: $key => $val",
);
- isa_ok($efa->{'error'}, 'WWW::Efa::Error::Setup');
+ # FIXME actual error tests
- is(
- $efa->{'error'}->option(), $key,
- "$key => $val: Error: Correct key",
- );
- is(
- $efa->{'error'}->value(), $val_want,
- "$key => $val: Error: Correct valuef",
- );
- is(
- $efa->{'error'}->message(), $str,
- "$key => $val: Error: String is '$str'",
- );
}
is_efa_post('ignored', 'ignored');
-my $efa = new_ok('WWW::Efa' => []);
-isa_ok($efa->{'error'}, 'WWW::Efa::Error::Setup');
-is($efa->{'error'}->{'key'}, 'place');
-is($efa->{'error'}->{'value'}, 'origin');
-is($efa->{'error'}->{'message'}, 'Need at least two elements');
+my $efa;
is_efa_post(
'via', ['MH', 'HBf'],