Mercurial > pub > Impl
view Lib/IMPL/Test.pm @ 245:7c517134c42f
Added Unsupported media type Web exception
corrected resourceLocation setting in the resource
Implemented localizable resources for text messages
fixed TT view scopings, INIT block in controls now sets globals correctly.
author | sergey |
---|---|
date | Mon, 29 Oct 2012 03:15:22 +0400 |
parents | 4d0e1962161c |
children | 6253872024a4 |
line wrap: on
line source
package IMPL::Test; use strict; use warnings; require IMPL::Test::SkipException; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(&test &shared &failed &cmparray &skip &run_plan &assert &GetCallerSourceLine); require IMPL::Test::Unit; require IMPL::Test::Plan; require IMPL::Test::TAPListener; use IMPL::Class::Member; sub test($$) { my ($name,$code) = @_; my $class = caller; $class->set_meta( new IMPL::Test::Unit::TestInfo( $name, $code ) ); } sub shared($) { my ($propInfo) = @_; my $class = caller; die new IMPL::Exception("Only properties could be declared as shared",$propInfo->Name) unless eval {$propInfo->isa('IMPL::Class::PropertyInfo')}; die new IMPL::Exception("You can't mark the readonly property as shared",$propInfo->Name) unless $propInfo->canSet; die new IMPL::Exception("Only public properties could be declared as shared",$propInfo->Name) unless $propInfo->Access == IMPL::Class::Member::MOD_PUBLIC; $class->set_meta(new IMPL::Test::Unit::SharedData($propInfo->Name)); } sub failed($;@) { die new IMPL::Test::FailException(@_); } sub assert { my ($condition,@params) = @_; die new IMPL::Test::FailException(@params ? @params : ("Assertion failed" , _GetSourceLine( (caller)[1,2] )) ) unless $condition; } sub skip($;@) { die new IMPL::Test::SkipException(@_); } sub cmparray { my ($a,$b) = @_; return 0 unless @$a == @$b; for (my $i=0; $i < @$a; $i++ ) { return 0 unless $a->[$i] eq $b->[$i]; } return 1; } sub _GetSourceLine { my ($file,$line) = @_; open my $hFile, $file or return "failed to open file: $file: $!"; my $text; $text = <$hFile> for ( 1 .. $line); chomp $text; $text =~ s/^\s+//; return "line $line: $text"; } sub GetCallerSourceLine { my $line = shift || 0; return _GetSourceLine( (caller($line + 1))[1,2] ) } sub run_plan { my (@units) = @_; my $plan = new IMPL::Test::Plan(@units); $plan->Prepare; $plan->AddListener(new IMPL::Test::TAPListener); $plan->Run; } 1;