Changeset fab637 in git for Tst/Short/general_s.tst

Timestamp:

Dec 14, 2000, 9:41:42 AM (23 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

46440818f3ec9d6230407b2c2b1e9b8d1faab0a3

Parents:

2ae411d951d8146629d883a15679dab86b1ace0e

Message:

* watchdog example better


git-svn-id: file:///usr/local/Singular/svn/trunk@4891 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

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

Tst/Short/general_s.tst

@@ -17 +17 @@
 example sort;
 example sum;
-example watchdog;
-example which;
+
+ring r=0,(x,y,z),dp;
+poly f=x^30+y^30;
+def l = watchdog(1,"factorize(eval("+string(f)+"))");
+
+if (typeof(l) == "string")
+{
+  if (l == "Killed")
+  {
+    1;
+  }
+}
+else
+{
+  poly pp = x16+x14y2-x10y6-x8y8-x6y10+x2y14+y16;
+  if (typeof(l) == list)
+  {
+    if (l[1][5] == p)    
+    {
+        1;
+    }
+  }
+}
+watchdog(100,"factorize(eval("+string(f)+"))");
+
+    
 
 tst_status(1);$