view release on metacpan or  search on metacpan

t/226-route_set_aux_override.t  view on Meta::CPAN

use strict;
use warnings;

use Data::Dumper;
use JSON::XS;
use Test::More;

BEGIN {
    use lib 't/';
    use TestBase;
    config();
    set_testing();
    db_create();
}

use Mock::Sub no_warnings => 1;

#my $m = Mock::Sub->new;
#my $switch_sub = $m->mock('App::RPi::EnvUI::API::switch');

use FindBin;
use lib "$FindBin::Bin/../lib";

use App::RPi::EnvUI::API;
use HTTP::Request::Common;
use Plack::Test;
use App::RPi::EnvUI;

my $api = App::RPi::EnvUI::API->new(testing => 1);
my $test = Plack::Test->create(App::RPi::EnvUI->to_app);

{ # /set_aux_override route
    my $p;

    # no params
    my $res = $test->request( GET "/set_aux_override" );
    like $res->content, qr/Not Found/, "/set_aux_override 404s if no params sent in";

    # one param
    $res = $test->request( GET "/set_aux_override/aux1" );
    like $res->content, qr/Not Found/, "/set_aux_override 404s if only one param sent";

    # good call
    $res = $test->request( GET "/set_aux_override/aux1/0" );
    is $res->is_success, 1, "with two valid params, /set_aux_override ok";
    
    # loop over all auxs

    for (1..8){
        my $id = "aux$_";

        my $res = $test->request( GET "/set_aux_override/$id/1" );
        $p = decode_json $res->content;

        is ref $p, 'HASH', "$id ret is a href";
        is keys %$p, 2, "$id ret has proper key count";
        is exists $p->{aux}, 1, "$id ret aux key exists";
        is $p->{aux}, $id, "$id ret has correct default value";

        my $aux = aux($id);

        if ($_ != 3){
            is exists $p->{override}, 1, "$id ret override key exists";
            is $p->{override}, 1, "$id ret override has correct updated value";
            is $aux->{override}, 1, "$id get_aux override has correct updated value";