view release on metacpan or  search on metacpan

t/03_value.t  view on Meta::CPAN

    my  $total_timer_time          = $obj->field_value( 'total_timer_time', $desc, $values );
    is( $total_timer_time,           383.372,                   "   test field_value(): total_timer_time in activity");
    my  $total_timer_time_as_read  = $obj->field_value_as_read( 'total_timer_time', $desc, $total_timer_time );
    is( $total_timer_time_as_read,   383372,                    "   test field_value_as_read(): total_timer_time in activity");

    my  $local_timestamp           = $obj->field_value( 'local_timestamp', $desc, $values );
    is( $local_timestamp,            1037812612,                "   test field_value(): local_timestamp in activity");
    my  $local_timestamp_as_read   = $obj->field_value_as_read( 'local_timestamp', $desc, $local_timestamp );
    is( $local_timestamp_as_read,    1037812612,                "   test field_value_as_read(): local_timestamp in activity");

    my  $num_sessions              = $obj->field_value( 'num_sessions', $desc, $values );
    is( $num_sessions,               1,                         "   test field_value(): num_sessions in activity");
    my  $num_sessions_as_read      = $obj->field_value_as_read( 'num_sessions', $desc, $num_sessions );
    is( $num_sessions_as_read,       1,                         "   test field_value_as_read(): num_sessions in activity");

    my  $type                      = $obj->field_value( 'type', $desc, $values );
    is( $type,                       'manual',                  "   test field_value(): type in activity");
    my  $type_as_read              = $obj->field_value_as_read( 'type', $desc, $type );
    is( $type_as_read,               0,                         "   test field_value_as_read(): type in activity");

    my  $event                     = $obj->field_value( 'event', $desc, $values );
    is( $event,                     'activity',                 "   test field_value(): event in activity");
    my  $event_as_read             = $obj->field_value_as_read( 'event', $desc, $event );
    is( $event_as_read,              26,                        "   test field_value_as_read(): event in activity");

    my  $event_type                = $obj->field_value( 'event_type', $desc, $values );
    is( $event_type,                'stop',                     "   test field_value(): event_type in activity");
    my  $event_type_as_read        = $obj->field_value_as_read( 'event_type', $desc, $event_type );
    is( $event_type_as_read,         1,                         "   test field_value_as_read(): event_type in activity");

    1
    };

# actually, not using this href for now but may use it in the future
my $memo = { 'tpv' => [], 'trackv' => [], 'lapv' => [], 'av' => [] };

$o->data_message_callback_by_name('file_id',            $cb_file_id,            $memo) or die $o->error;
$o->data_message_callback_by_name('file_creator',       $cb_file_creator,       $memo) or die $o->error;
$o->data_message_callback_by_name('event',              $cb_event,              $memo) or die $o->error;
$o->data_message_callback_by_name('device_info',        $cb_device_info,        $memo) or die $o->error;
$o->data_message_callback_by_name('device_settings',    $cb_device_settings,    $memo) or die $o->error;
$o->data_message_callback_by_name('user_profile',       $cb_user_profile,       $memo) or die $o->error;
$o->data_message_callback_by_name('sport',              $cb_sport,              $memo) or die $o->error;
$o->data_message_callback_by_name('zones_target',       $cb_zones_target,       $memo) or die $o->error;
$o->data_message_callback_by_name('lap',                $cb_lap,                $memo) or die $o->error;
$o->data_message_callback_by_name('session',            $cb_session,            $memo) or die $o->error;
$o->data_message_callback_by_name('activity',           $cb_activity,           $memo) or die $o->error;
# my @f = $obj->fields_list( $desc );

#
# A - test field_value(), field_value_as_read(), named_type_value() and switched() with the above callbacks

my (@header_things, $ret_val);

$o->open or die $o->error;
@header_things = $o->fetch_header;

$ret_val = undef;

my $temp_max_i = 300;                   # temporary number of iterations (ensure we don't end up in endless loop if anything goes wrong)
my $i;
while ( my $ret = $o->fetch ) {
    # we are testing with callbacks, so not much to do here
    # as we add more tests, set the last to be when we have the latest one to test, i.e. will probably zones_target
    # last if $device_info_got;
    last if ++$i == $temp_max_i;
}
$o->close();

print "so debugger doesn't exit\n";