App-prove4air
view release on metacpan or search on metacpan
// !prove4air
import com.example.Example;
// ---
$.ok( 1, 'ok' );
$.equal( 1, 1, 'equal' );
A test example in another (more traditional) style
package {
import yzzy.tap4air.Test;
import mx.core.UIComponent;
import flash.desktop.NativeApplication;
public class test extends UIComponent {
public function test() {
Test.ok( 1, 'ok' );
Test.equal( 1, 1, 'equal' );
Test.unequal( 1, 2, 'unequal' );
Test.like( 'Xyzzy', /yzzy/, 'like' );
Test.unlike( 'Xyzzy', /Y/, 'unlike' );
Test.exit();
lib/App/prove4air.pm view on Meta::CPAN
my $xmlns;
$xmlns = "http://ns.adobe.com/air/application/1.5";
$xmlns = "http://ns.adobe.com/air/application/2.0";
if ( @test_content ) {
$test{ script }->openw->print( <<_END_ );
package {
import yzzy.tap4air.Test;
import mx.core.UIComponent;
import flash.desktop.NativeApplication;
@{[ join '', @import_content ]}
public class test extends UIComponent {
public function test() {
var \$:* = Test.singleton();
@{[ join '', @test_content ]}
\$.exit();
}
}
lib/App/prove4air.pm view on Meta::CPAN
import com.example.Example;
// ---
$.ok( 1, 'ok' );
$.equal( 1, 1, 'equal' );
=head1 A test example in another (more traditional) style
package {
import yzzy.tap4air.Test;
import mx.core.UIComponent;
import flash.desktop.NativeApplication;
public class test extends UIComponent {
public function test() {
Test.ok( 1, 'ok' );
Test.equal( 1, 1, 'equal' );
Test.unequal( 1, 2, 'unequal' );
Test.like( 'Xyzzy', /yzzy/, 'like' );
Test.unlike( 'Xyzzy', /Y/, 'unlike' );
Test.exit();
( run in 0.263 second using v1.01-cache-2.11-cpan-299005ec8e3 )