test for self-calling inner functions

diff --git a/lib/as3/ok/innerrecurse.as b/lib/as3/ok/innerrecurse.as
new file mode 100644 (file)
index 0000000..c2dfcdf
--- /dev/null
+++ b/lib/as3/ok/innerrecurse.as
@@ -0,0 +1,20 @@
+package {
+    import flash.display.MovieClip
+
+    public class Main extends flash.display.MovieClip {
+        public function Main() {
+            var i = 0;
+            f(0);
+            function f(j:int) {
+                if(i!=j) 
+                    trace("error");
+                i++;
+                if(j==3) {
+                    trace("ok");
+                    return;
+                }
+                f(j+1);
+            }
+        }
+    }
+}