Changeset 4e59df4 in git for Tst/Short/pyobject.tst

Timestamp:

Jun 27, 2012, 3:38:21 PM (11 years ago)

Author:

Alexander Dreyer <alexander.dreyer@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')

Children:

9165865409bb43ba082670375c4a04e78f8b76e1

Parents:

29fc84389b9713cdf07cc538bad5becf4758553e

git-author:

Alexander Dreyer <alexander.dreyer@itwm.fraunhofer.de>2012-06-27 15:38:21+02:00

git-committer:

Alexander Dreyer <alexander.dreyer@itwm.fraunhofer.de>2012-08-01 23:32:35+02:00

Message:

new: tests for interaction of pyobject and newtruct

File:

• Tst/Short/pyobject.tst (modified) (1 diff)

Tst/Short/pyobject.tst

@@ -161 +161 @@
 python_eval("tuple")(list(rl[1..3]));
 
+// interaction with newstruct'ed type
+newstruct("wrapping","pyobject p");
+wrapping wrapped;
+
+pyobject seventeen = 17;
+wrapped.p = seventeen;
+wrapped;
+
+proc unwrap(wrapping arg) { return (arg.p); }
+system("install", "wrapping", "pyobject", unwrap, 1);
+
+pyobject released = wrapped;
+released;
+
+proc wrap(pyobject arg) { wrapping res; res.p = arg; return (res); }
+system("install", "pyobject", "wrapping", wrap, 1);
+
+pyobject nineteen = 19;
+wrapped = nineteen;
+wrapped;
+
+
+// interaction with built-ins
+proc to_poly(pyobject arg) { return (poly(23)); }
+system("install", "pyobject", "poly", to_poly, 1);
+
+pyobject for_poly="4poly";
+poly(for_poly);
+
+proc from_poly(poly arg) { pyobject res = string(arg); return (res); }
+system("install", "pyobject", "=", from_poly, 1);
+
+poly p = x+1;
+for_poly = p;
+for_poly;
+
+
+// interaction with both built-ins and newstructs
+newstruct("another","pyobject p");
+another other;
+other.p = seventeen;
+other;
+
+released = other;  // -> error
+released;
+
+proc from_types(def arg) { 
+  if (typeof(arg) == "poly") { return (from_poly(arg)); }
+  if (typeof(arg) == "another") { return (arg.p); }
+}
+system("install", "pyobject", "=", from_types, 1);
+
+released = other;
+released;
+released = p;
+released;
+
+
 tst_status(1);
 $