view release on metacpan or  search on metacpan

t/model/model.t  view on Meta::CPAN

#
# unit tests for Model.pm
#

#!perl

use 5.012;
use strict;
use warnings;

use Data::Dumper;
use Test::Fatal;
use Test::More;

use App::Dochazka::Common::Model;

BEGIN {
    no strict 'refs';
    *{"spawn"} = App::Dochazka::Common::Model::make_spawn;
    *{"filter"} = App::Dochazka::Common::Model::make_filter( 'naivetest' );
    *{"reset"} = App::Dochazka::Common::Model::make_reset( 'naivetest' );

t/model/reset.t  view on Meta::CPAN

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Activity;
use App::Dochazka::Common::Model::Component;
use App::Dochazka::Common::Model::Employee;
use App::Dochazka::Common::Model::Interval;
use App::Dochazka::Common::Model::Lock;
use App::Dochazka::Common::Model::Privhistory;
use App::Dochazka::Common::Model::Schedhistory;
use App::Dochazka::Common::Model::Schedule;
#use App::Dochazka::Common::Test;
use Data::Dumper;
use Test::Fatal;
use Test::More;

# Include _all_ parameters for each class
my %props_dispatch = (
    'Activity' => {
        aid => undef,
        code => 'BAZZED_BAR',
        long_desc => 'not interesting',
        remark => 'interesting',

t/model/schedule.t  view on Meta::CPAN

# unit tests for Model/Schedule.pm
#

#!perl
use 5.012;
use strict;
use warnings;

#use App::CELL::Test::LogToFile;
use App::Dochazka::Common::Model::Schedule;
use Data::Dumper;
use Test::Fatal;
use Test::More; 

my $obj = App::Dochazka::Common::Model::Schedule->spawn(
    sid => 234,
    scode => 'Woofus',
    schedule => '{ "foobar" : "bazblat" }',
    remark => 'nothing of interest',
    disabled => 0,
);