Avoiding multiple plans execution with .desire

agentspeakers · Sep 23, 2020 · 59e4853 · 59e4853
1 parent 0b73edd
commit 59e4853
Show file tree

Hide file tree

Showing 2 changed files with 29 additions and 8 deletions.
diff --git a/src/test/jason/asl/stdlib/desire.asl b/src/test/jason/asl/stdlib/desire.asl
@@ -59,3 +59,26 @@
     !go(8,12);
     !assert_false(.desire(go(8,12)));
 .
+
+
+@[test]
++!test_desire_avoid_concurrence
+    <-
+    -+count(0);
+    for ( .range(I,1,100) ) {
+        if (not .desire(singleton_plan(_))) {
+            !!singleton_plan(I);
+        }
+    }
+    .wait(1000);
+    .count(register(I),C);
+    !assert_equals(1,C);
+.
+
++!singleton_plan(I)
+    <-
+    .wait(100);
+    +register(I);
+    .wait(100);
+.
++!singleton_plan(I).
diff --git a/src/test/jason/asl/stdlib/intend.asl b/src/test/jason/asl/stdlib/intend.asl
@@ -32,21 +32,19 @@
 @[test]
 +!test_intend_avoid_concurrence
     <-
-    -+count(0);
     for ( .range(I,1,100) ) {
-        !!singleton_plan;
+        !!singleton_plan(I);
     }
     .wait(1000);
-    ?count(C);
+    .count(register(_),C);
     !assert_equals(1,C);
 .
 
-+!singleton_plan :
-    not .intend(singleton_plan)
++!singleton_plan(I) :
+    not .intend(singleton_plan(_))
     <-
     .wait(100);
-    ?count(C);
-    -+count(C+1);
+    +register(I);
     .wait(100);
 .
-+!singleton_plan.
++!singleton_plan(I).