From 96ad976776b30ebee4b623e50c0228541a8f9d5d Mon Sep 17 00:00:00 2001
From: Harald Lapp <harald.lapp@gmail.com>
Date: Mon, 26 Aug 2013 15:40:25 +0200
Subject: [PATCH] added test for "php closures from lua" functionality

---
 tests/013.phpt | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 tests/013.phpt

diff --git a/tests/013.phpt b/tests/013.phpt
new file mode 100644
index 0000000..5da0ed4
--- /dev/null
+++ b/tests/013.phpt
@@ -0,0 +1,30 @@
+--TEST--
+PHP Closures from Lua
+--SKIPIF--
+<?php if (!extension_loaded("lua")) print "skip"; ?>
+--FILE--
+<?php 
+
+$l = new lua();
+$l->eval(<<<CODE
+function test(cb1)
+    local cb2 = cb1("called from lua")
+    cb2("returned from php")
+end
+CODE
+);
+
+try {
+    $l->test(function($msg) {
+        print "$msg";
+    
+        return function($msg) {
+            print "$msg";
+        };
+    });
+} catch(LuaException $e) {
+    echo $e->getMessage();
+}
+?>
+--EXPECTF--
+called from luareturned from php