X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=t%2FFakeData.pm;fp=t%2FFakeData.pm;h=fe64241213d1665daa54654401d1935ac47a1dae;hp=0000000000000000000000000000000000000000;hb=10c4f6f5ac0c8a3d3462416fd7e2f3ce62e72788;hpb=adb44605971dd30c3ea7eb753928277deac92816 diff --git a/t/FakeData.pm b/t/FakeData.pm new file mode 100644 index 0000000..fe64241 --- /dev/null +++ b/t/FakeData.pm @@ -0,0 +1,35 @@ +package Gruntmaster::Data; +use v5.14; +use warnings; +use parent qw/Exporter/; + +BEGIN { $INC{'Gruntmaster/Data.pm'} = 1; } + +my (@jobs, %problems); + +sub job_inmeta { $jobs[$_[0]]{inmeta} }; +sub set_job_inmeta { $jobs[$_[0]]{inmeta} = $_[1] }; +sub job_problem { $jobs[$_[0]]{problem} }; +sub set_job_problem { $jobs[$_[0]]{problem} = $_[1] }; + +sub set_job_result { $jobs[$_[0]]{result} = $_[1] }; +sub set_job_result_text { $jobs[$_[0]]{result_text} = $_[1] }; +sub set_job_results { $jobs[$_[0]]{results} = $_[1] }; +sub set_job_errors { $jobs[$_[0]]{errors} = $_[1] }; +sub set_job_daemon { $jobs[$_[0]]{daemon} = $_[1] }; + +sub problem_meta { $problems{$_[0]}{meta} } +sub set_problem_meta { $problems{$_[0]}{meta} = $_[1] } + +sub get_job { $jobs[$_[0]] } + +sub PUBLISH {} +sub SUBSCRIBE {} +sub WAIT_FOR_MESSAGES {} + +our @EXPORT = do { + no strict 'refs'; + grep { $_ =~ /^[a-zA-Z]/ and exists &$_ } keys %{__PACKAGE__ . '::'}; +}; + +1