Change-Id: I61a2c8e7b4897a539755b8b6a3261145e6f4b69cchanges/82/10382/2
parent
a5fa8b0aa1
commit
6268023c42
@ -0,0 +1,46 @@
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Test::Collection;
|
||||
use Test::FakeData;
|
||||
use Test::More;
|
||||
use Data::Dumper;
|
||||
|
||||
#init test_machine
|
||||
my $test_machine = Test::Collection->new(
|
||||
name => 'domains',
|
||||
);
|
||||
$test_machine->methods->{collection}->{allowed} = {map {$_ => 1} qw(GET HEAD OPTIONS POST)};
|
||||
$test_machine->methods->{item}->{allowed} = {map {$_ => 1} qw(GET HEAD OPTIONS DELETE)};
|
||||
|
||||
my $fake_data = Test::FakeData->new;
|
||||
$fake_data->set_data_from_script({
|
||||
'domains' => {
|
||||
'data' => {
|
||||
domain => 'api_test_domain.api_test_domain',
|
||||
reseller_id => sub { return shift->get_id('resellers',@_); },
|
||||
},
|
||||
'query' => ['domain'],
|
||||
},
|
||||
});
|
||||
|
||||
#for item creation test purposes /post request data/
|
||||
$test_machine->DATA_ITEM_STORE($fake_data->process('domains'));
|
||||
|
||||
$test_machine->form_data_item( );
|
||||
# create 3 new sound sets from DATA_ITEM
|
||||
$test_machine->check_create_correct( 1, sub{ $_[0]->{domain} .= $_[1]->{i}; } );
|
||||
$test_machine->check_bundle();
|
||||
|
||||
$test_machine->runas('reseller');
|
||||
diag('8185: Run as reseller');
|
||||
$test_machine->check_create_correct( 1, sub{ $_[0]->{domain} .= 'reseller'.$_[1]->{i}; } );
|
||||
$test_machine->check_bundle();
|
||||
|
||||
|
||||
|
||||
$test_machine->clear_test_data_all();
|
||||
|
||||
done_testing;
|
||||
|
||||
# vim: set tabstop=4 expandtab:
|
Loading…
Reference in new issue