From 17a46a76797e3908dc98f0ec687093bed01e5480 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Tue, 13 Jun 2000 21:51:02 +0200
Subject: [PATCH] Added a few cast tests.
Rev: src/testsuite.in:1.304
---
src/testsuite.in | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
diff --git a/src/testsuite.in b/src/testsuite.in
index 83d0e0487e..4498cc1094 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.303 2000/06/12 23:00:32 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.304 2000/06/13 19:51:02 nilsson Exp $"]]);
cond([[all_constants()->_verify_internals]],
[[
@@ -3342,13 +3342,21 @@ test_equal(({1,2,3})[0..-100],({}))
// casting
test_eq([[(int)1]],[[1]])
+test_eq([[(int)-1]],[[-1]])
test_eq([[(int)1.0]],[[1]])
+test_eq([[(int)-1.0]],[[-1]])
test_eq([[(int)"1"]],[[1]])
+test_eq([[(int)"-1"]],[[-1]])
test_eq([[(float)"1"]],[[1.0]])
+test_eq([[(float)"-1"]],[[-1.0]])
test_eq([[(float)"1.0"]],[[1.0]])
+test_eq([[(float)"-1.0"]],[[-1.0]])
test_eq([[(float)1.0]],[[1.0]])
+test_eq([[(float)-1.0]],[[-1.0]])
test_eq([[(float)1]],[[1.0]])
+test_eq([[(float)-1]],[[-1.0]])
test_eq([[(string)1]],[["1"]])
+test_eq([[(string)-1]],[["-1"]])
test_equal([[(array)(["1":1])]],[[ ({ ({"1", 1}) }) ]])
test_equal([[(array(int)) ({"1","4711",2.0,4})]],[[({1,4711,2,4})]])
test_equal([[(array(array))({({})})]],[[({({})})]])
--
GitLab