[PHP-CVS] cvs: php-src /ext/ming/tests .cvsignore swfaction.phpt

[Jani Taskinen]

sniper          Fri Sep  5 10:46:38 2003 EDT

  Added files:                 
    /php-src/ext/ming/tests     .cvsignore swfaction.phpt 
  Log:
  - Simple test for ming
  
  

Index: php-src/ext/ming/tests/.cvsignore
+++ php-src/ext/ming/tests/.cvsignore
phpt.*
*.diff
*.log
*.exp
*.out
*.php
test.swf

Index: php-src/ext/ming/tests/swfaction.phpt
+++ php-src/ext/ming/tests/swfaction.phpt
--TEST--
Ming: Simple SWFAction() test
--SKIPIF--
<?php if (!extension_loaded("ming")) print "skip"; ?>
--FILE--
<?php /* $Id: swfaction.phpt,v 1.1 2003/09/05 14:46:37 sniper Exp $ */

  $s = new SWFShape();
  $f = $s->addFill(0xff, 0, 0);
  $s->setRightFill($f);

  $s->movePenTo(-500,-500);
  $s->drawLineTo(500,-500);
  $s->drawLineTo(500,500);
  $s->drawLineTo(-500,500);
  $s->drawLineTo(-500,-500);

  $p = new SWFSprite();
  $i = $p->add($s);
  $i->setDepth(1);
  $p->nextFrame();

  for($n=0; $n<5; ++$n)
  {
    $i->rotate(-15);
    $p->nextFrame();
  }

  $m = new SWFMovie();
  $m->setBackground(0xff, 0xff, 0xff);
  $m->setDimension(6000,4000);

  $i = $m->add($p);
  $i->setDepth(1);
  $i->moveTo(1000,2000);
  $i->setName("box");

  $m->add(new SWFAction("_root.box._x += 3;"));
  $m->nextFrame();
  $m->add(new SWFAction("gotoFrame(0); play();"));
  $m->nextFrame();

  $m->save('./test.swf');
  echo md5_file('./test.swf'), "\n";
  unlink('./test.swf');
?>
--EXPECT--
9e47538692393b9915faf3fc7e686cd5


-- 
PHP CVS Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php