description and testing
This commit is contained in:
		@@ -7,18 +7,18 @@ use Test2::Tools::Compare qw{is U};
 | 
			
		||||
InternalTimer(time()+1, sub() {
 | 
			
		||||
    my %hash;
 | 
			
		||||
    $hash{TEMPORARY} = 1;
 | 
			
		||||
    $hash{NAME}  = q{hallo};
 | 
			
		||||
    $hash{TYPE}  = q{Hello};
 | 
			
		||||
    $hash{NAME}  = q{dummyMatrix};
 | 
			
		||||
    $hash{TYPE}  = q{Matrix server user};
 | 
			
		||||
    $hash{STAE}  = q{???};
 | 
			
		||||
 | 
			
		||||
    subtest "Demo Test checking define" => sub {
 | 
			
		||||
        $hash{DEF}   = "howdy";
 | 
			
		||||
    subtest "Matrix Test checking define" => sub {
 | 
			
		||||
        $hash{DEF}   = "pass";
 | 
			
		||||
        plan(2);
 | 
			
		||||
        my $ret = Hello_Define(\%hash,qq{$hash{NAME} $hash{TYPE}});
 | 
			
		||||
        like ($ret, qr/too few parameters: define <name> Hello <greet>/, 'check error message Hello_Define');
 | 
			
		||||
        my $ret = Matrix_Define(\%hash,qq{$hash{NAME} $hash{TYPE}});
 | 
			
		||||
        like ($ret, qr/too few parameters: define <name> Matrix <greet>/, 'check error message Matrix_Define');
 | 
			
		||||
 | 
			
		||||
        $ret = Hello_Define(\%hash,qq{$hash{NAME} $hash{TYPE} $hash{DEF}});
 | 
			
		||||
        is ($ret, U(), 'check returnvalue Hello_Define');
 | 
			
		||||
        $ret = Matrix_Define(\%hash,qq{$hash{NAME} $hash{TYPE} $hash{DEF}});
 | 
			
		||||
        is ($ret, U(), 'check returnvalue Matrix_Define');
 | 
			
		||||
    };
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
 
 | 
			
		||||
@@ -1 +1 @@
 | 
			
		||||
define dummyMatrix Matrix HiHo
 | 
			
		||||
define dummyMatrix Matrix matrix.web05.de
 | 
			
		||||
		Reference in New Issue
	
	Block a user