langs a-z

Task/Assertions/Nimrod/assertions.nimrod

@@ -0,0 +1,2 @@
+var a = 42
+assert(a == 42)

Task/Assertions/OCaml/assertions.ocaml

@@ -0,0 +1,3 @@
+let a = get_some_value () in
+  assert (a = 42); (* throws Assert_failure when a is not 42 *)
+  (* evaluate stuff to return here when a is 42 *)

Task/Assertions/Oberon-2/assertions.oberon-2

@@ -0,0 +1,7 @@
+MODULE Assertions;
+VAR
+	a: INTEGER;
+BEGIN
+	a := 40;
+	ASSERT(a = 42);
+END Assertions.

Task/Assertions/Objective-C/assertions-1.m

@@ -0,0 +1 @@
+NSAssert(a == 42, @"Error message");

Task/Assertions/Objective-C/assertions-2.m

@@ -0,0 +1 @@
+NSAssert1(a == 42, @"a is not 42, a is actually %d", a); # has 1 formatting arg, so use NSAssert"1"

Task/Assertions/Oz/assertions.oz

@@ -0,0 +1,8 @@
+declare
+  proc {PrintNumber N}
+     N=42  %% assert
+     {Show N}
+  end
+in
+  {PrintNumber 42} %% ok
+  {PrintNumber 11} %% throws

Task/Assertions/PARI-GP/assertions.pari

@@ -0,0 +1,10 @@
+#include <assert.h>
+
+void
+test()
+{
+  int a;
+  // ... input or change a here
+
+  assert(a == 42); // Aborts program if a is not 42, unless the NDEBUG macro was defined
+}

Task/Assertions/PL-I/assertions.pli

@@ -0,0 +1,18 @@
+/* PL/I does not have an assert function as such, */
+/* but it is something that can be implemented in */
+/* any of several ways.  A straight-forward way   */
+/* raises a user-defined interrupt. */
+
+on condition (assert_failure) snap
+   put skip list ('Assert failure');
+....
+if a ^= b then signal condition(assert_failure);
+
+/* Another way is to use the preprocessor, thus: */
+%assert: procedure (a, b) returns (character);
+   return ('if ' || a || '^=' || b ||
+      ' then signal condition(assert_failure);');
+%end assert;
+%activate assert;
+
+assert(a, 42);

Task/Assertions/Perl-6/assertions.pl6

@@ -0,0 +1,8 @@
+my $a = (1..100).pick;
+
+# with a (non-hygienic) macro
+macro assert ($x) { "$x or die 'assertion failed: $x'" }
+assert('$a == 42');
+
+# but usually we just say
+$a == 42 or die "$x ain't 42";

Task/Assertions/PureBasic/assertions-1.purebasic

@@ -0,0 +1,8 @@
+Macro Assert(TEST,MSG="Assert: ")
+  CompilerIf #PB_Compiler_Debugger
+    If Not (TEST)
+      Debug MSG+" Line="+Str(#PB_Compiler_Line)+" in "+#PB_Compiler_File
+      CallDebugger
+    EndIf
+  CompilerEndIf
+EndMacro

Task/Assertions/PureBasic/assertions-2.purebasic

@@ -0,0 +1,4 @@
+A=42
+Assert(A=42,"Assert that A=42")
+A=42-1
+Assert(A=42)

Task/Assertions/RLaB/assertions.rlab

@@ -0,0 +1,6 @@
+// test if 'a' is 42, and if not stop the execution of the code and print
+// some error message
+if (a != 42)
+{
+  stop("a is not 42 as expected, therefore I stop until this issue is resolved!");
+}

Task/Assertions/SPARK/assertions-1.spark

@@ -0,0 +1 @@
+-# check X = 42;

Task/Assertions/SPARK/assertions-2.spark

@@ -0,0 +1 @@
+-# assert X = 42;

Task/Assertions/SPARK/assertions-3.spark

@@ -0,0 +1,3 @@
+procedure P (X : in out Integer);
+--# derives X from *;
+--# pre  X = 42;

Task/Assertions/SPARK/assertions-4.spark

@@ -0,0 +1,3 @@
+procedure P (X : in out Integer);
+--# derives X from *;
+--# post X = 42;

Task/Assertions/SPARK/assertions-5.spark

@@ -0,0 +1,2 @@
+X := 7;
+--# check X = 42;

Task/Assertions/Slate/assertions.slate

@@ -0,0 +1,3 @@
+load: 'src/lib/assert.slate'.
+define: #n -> 7.
+assert: n = 42 &description: 'That is not the Answer.'.

Task/Assertions/VBScript/assertions-1.vbscript

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

Task/Assertions/VBScript/assertions-2.vbscript

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

Task/Assertions/VBScript/assertions-3.vbscript

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

Task/Assertions/Vala/assertions.vala

@@ -0,0 +1,4 @@
+int a = 42;
+int b = 33;
+assert (a == 42);
+assert (b == 42); // will break the program with "assertion failed" error

Task/Assertions/Visual-Basic/assertions.vb

@@ -0,0 +1 @@
+Debug.Assert i = 42

Task/Assertions/XPL0/assertions.xpl0

@@ -0,0 +1,10 @@
+proc Fatal(Str);        \Display error message and terminate program
+char Str;
+[\return;                uncomment this if "assertions" are to be disabled
+SetVid(3);              \set normal text display if program uses graphics
+Text(0, Str);           \display error message
+ChOut(0, 7);            \sound the bell
+exit 1;                 \terminate the program; pass optional error code to DOS
+];
+
+if X#42 then Fatal("X#42");