Data update

Task/Assertions/Ada/assertions-1.ada

@@ -1 +0,0 @@
-pragma Assert (A = 42, "Oops!");

Task/Assertions/Ada/assertions-2.ada

@@ -1,3 +0,0 @@
-with Ada.Assertions;  use Ada.Assertions;
-...
-Assert (A = 42, "Oops!");

Task/Assertions/Ada/assertions-3.ada

@@ -1,10 +0,0 @@
-procedure Find_First
-     (List     : in     Array_Type;
-      Value    : in     Integer;
-      Found    :    out Boolean;
-      Position :    out Positive) with
-      Depends => ((Found, Position) => (List, Value)),
-      Pre     => (List'Length > 0),
-      Post    =>
-      (if Found then Position in List'Range and then List (Position) = Value
-       else Position = List'Last);

Task/Assertions/Emacs-Lisp/assertions.l

@@ -1,3 +0,0 @@
-(require 'cl-lib)
-(let ((x 41))
-  (cl-assert (= x 42) t "This shouldn't happen"))

Task/Assertions/Euphoria/assertions.ex

@@ -1,7 +0,0 @@
-type fourty_two(integer i)
-    return i = 42
-end type
-
-fourty_two i
-
-i = 41 -- type-check failure

Task/Assertions/REXX/assertions-2.rexx

@@ -1,15 +1,14 @@
-/*REXX program implements a simple  ASSERT  function;  the expression can be compound.  */
-  a =  1                                         /*assign a value to the   A   variable.*/
-  b =  -2                                        /*   "   "   "    "  "    B       "    */
-gee =  7.00                                      /*   "   "   "    "  "   GEE      "    */
-zee = 26                                         /*   "   "   "    "  "   ZEE      "    */
+-- 8 Sep 2025
+include Setting
 
-call assert (a = 1)
-call assert (b > 0)
-call assert (gee = 7)
-call assert (zee = a  &  zee>b)
-exit                                             /*stick a fork in it,  we're all done. */
-/*──────────────────────────────────────────────────────────────────────────────────────*/
-assert: if arg(1)=1  then return;    parse value sourceline(sigl)  with x;  say
-        say '===== ASSERT failure in REXX line' sigl", the statement is:";  say '====='  x
-        say;       return
+say 'ASSERTIONS'
+say version
+say
+a=41
+call Assert a = 41
+say 'This line is executed'
+call Assert a = 42,'The Answer to the Ultimate Question must be Forty-Two'
+say 'This line is not executed'
+exit
+
+include Math

Task/Assertions/VBScript/assertions-1.vb

@@ -1,5 +0,0 @@
-sub Assert( boolExpr, strOnFail )
-	if not boolExpr then
-		Err.Raise vbObjectError + 99999, , strOnFail
-	end if
-end sub

Task/Assertions/VBScript/assertions-2.vb

@@ -1,3 +0,0 @@
-dim i
-i = 43
-Assert i=42, "There's got to be more to life than this!"

Task/Assertions/VBScript/assertions-3.vb

@@ -1,2 +0,0 @@
->cscript "C:\foo\assert.vbs"
-C:\foo\assert.vbs(3, 3) (null): There's got to be more to life than this!