Changeset 168 for trunk/soft/ObsData/t/OR-03.t

Timestamp:

12/19/05 23:10:37 (19 years ago)

Author:

thauvin

Message:

• use ObsData::Event to manage event

File:

• trunk/soft/ObsData/t/OR-03.t (modified) (3 diffs, 1 prop)

trunk/soft/ObsData/t/OR-03.t

@@ -1 +1 @@
 # $Id$
+
+use strict;
+use warnings;
 
 use Test::More tests => 14;
@@ -30 +33 @@
             archivefile => 'ozone34.gz',
             interative_callback => sub {
-                my ($self, $why, @args) = @_;
-                $callbackwhy = $why;
-                if ($why eq 'overwrite') {
+                my ($self, $event) = @_;
+                $callbackwhy = $event->id;
+                if ($callbackwhy eq 'overwrite') {
                     return 1;
                 } else {
-                    return $self->default_checks($why, @args);
+                    return $self->default_choice($event);
                 }
             },
@@ -49 +52 @@
     ok($or->get_data_value('ozone34', 'BAR') eq 'BAR', "can get a value");
 
-    ok($or->do_continue('overwrite') eq 1, "Perform do_continue");
+    ok($or->do_continue('overwrite', 'a', 'a') eq 1, "Perform do_continue");
     ok($callbackwhy eq 'overwrite', "arg are properly passed to callback");
     ok($or->list_archive, "Can list archive content");