view release on metacpan or  search on metacpan

t/03-simple-get-put.t  view on Meta::CPAN

                          $found_item = shift;
                      },
                      TableName => $table_name,
                      Key => {
                          user_id => 2
                      }
                  )->is_done, "Updated item retrieved");
    
    ok(defined($found_item), "Updated item was successfully retrieved");
    is($found_item->{user_id}, 2, "user_id is 2");
    is($found_item->{name}, "Rusty Conover-3", "updated name is found");
    is($found_item->{added_number}, 1005, "updated added_number is mathematically added");
    is($found_item->{subtracted_number}, 995, "updated subtracted_number is mathematically added");
    ok(!defined($found_item->{favorite_color}), "updated favorite_color is undefined, since it was deleted");
    eq_or_diff([600, 800],
               [sort @{$found_item->{test_numbers}}], "Deleted Number array matches");
    
    
    eq_or_diff([1],
               [sort @{$found_item->{new_number_set}}], "New number set matches");
    
    eq_or_diff(['Hello', 'Rusty'],
               [sort @{$found_item->{new_string_set}}], "New string set matches");
    

t/03-simple-get-put.t  view on Meta::CPAN

                          $found_item = shift;
                      },
                      TableName => $table_name,
                      Key => {
                          user_id => 3,
                      }
                  )->is_done, "Updated item retrieved");
    
    ok(defined($found_item), "Updated item was successfully retrieved");
    is($found_item->{user_id}, 3, "user_id is 3");
    is($found_item->{name}, "Rusty", "non updated name is found");
}


{
    my $update = $ddb->update_item(
        TableName => $table_name,
        Key => {
            user_id => 3,
        },
        AttributeUpdates => {

t/03-simple-get-put.t  view on Meta::CPAN

                          $found_item = shift;
                      },
                      TableName => $table_name,
                      Key => {
                          user_id => 3,
                      }
                  )->is_done, "Updated item retrieved");
    
    ok(defined($found_item), "Updated item was successfully retrieved");
    is($found_item->{user_id}, 3, "user_id is 3");
    is($found_item->{name}, "R2D2", "updated name is found");
}


ok($ddb->delete_table(TableName => $table_name)->is_done, "Successfully deleted table named $table_name");