Obsolete
/
dnsmanagerv1
Archived
3
0
Fork 0
This repository has been archived on 2024-06-18. You can view files and clone it, but cannot push or open issues/pull-requests.
dnsmanagerv1/lib/testapp.pl

115 lines
2.3 KiB
Perl

#!/usr/bin/perl -w
use v5.14;
use strict;
use warnings;
use utf8;
use open qw/:std :utf8/;
use File::Basename;
use YAML::XS;
use configuration ':all';
use util ':all';
use app;
use rt::root ':all';
use rt::domain ':all';
use rt::user ':all';
use rt::admin ':all';
#my $test_updateraw = sub {
# rt_dom_updateraw
# get_session( qw/login passwd/ )
# , get_param( qw/domain zoneupdated/ ); # TODO verify this
#};
my $test_update = sub {
rt_dom_update
{ qw/login test passwd test/ }
, { qw/type A
name www
value 10.0.0.1
ttl 100
priority 1
domain test.netlib.re./ };
};
#my $test_detail = sub {
# rt_dom_details
# get_session( qw/login passwd/ )
# , get_param( qw/domain expert/ )
# , get_request( qw/address referer/ );
#};
my $test_add_domain = sub {
rt_dom_add
{ qw/login test passwd test/}
, { qw/domain test tld .netlib.re./ };
};
my $test_del_domain = sub {
rt_dom_del
{ qw/login test passwd test/ }
, { qw/domain test.netlib.re./ }
, { qw/address referer/ }; # TODO
};
#my $test_del_entry = sub {
# rt_dom_del_entry
# get_session( qw/login passwd/ )
# , get_param( qw/domain name type host ttl/ )
# , get_request( qw/address referer/ );
#};
#my $test_mod_entry = sub {
# rt_dom_mod_entry
# get_session( qw/login passwd/ )
# , get_param( qw/domain name type host ttl/ )
# , get_request( qw/address referer/ );
#};
my $test_cli_mod_entry = sub {
rt_dom_cli_mod_entry
get_session( qw/login/ )
, get_param( qw/passwd domain name type host ttl ip/ );
};
#any ['get', 'post'] => '/admin' => sub {
# rt_admin
# get_session( qw/login passwd/ );
#};
#get '/home' => sub {
# rt_user_home
# get_session( qw/login passwd/ )
# , get_param( qw// )
# , get_request( qw// );
#};
my $test_del_user = sub {
rt_user_del
get_session( qw/login passwd/ )
, { qw/user test/ }
, { qw/referer/ };
};
my $test_add_user = sub {
rt_user_add
{ qw// }
, { qw/login test password test password2 test/ }
, { qw// };
};
say "Tests - ";
# get '/subscribe' => sub {
# rt_user_subscribe
# get_session( qw/login/ );
# };
#my $test_toggle_admin = sub {
# rt_user_toggleadmin
# { qw/login passwd/ }
# , get_param( qw/user/ )
# , get_request( qw/referer/ );
#};