[pkgsrc/trunk]: pkgsrc/lang/sr Add regression test for pointer-string-pointer...

[is <is%pkgsrc.org@localhost>]

details:   https://anonhg.NetBSD.org/pkgsrc/rev/992195f8238a
branches:  trunk
changeset: 490414:992195f8238a
user:      is <is%pkgsrc.org@localhost>
date:      Wed Mar 09 20:38:26 2005 +0000

description:
Add regression test for pointer-string-pointer conversion.

diffstat:

 lang/sr/distinfo         |   5 ++++-
 lang/sr/patches/patch-bd |   9 +++++++++
 lang/sr/patches/patch-be |  34 ++++++++++++++++++++++++++++++++++
 lang/sr/patches/patch-bf |   9 +++++++++
 4 files changed, 56 insertions(+), 1 deletions(-)

diffs (80 lines):

diff -r 4b11a2ad2246 -r 992195f8238a lang/sr/distinfo
--- a/lang/sr/distinfo  Wed Mar 09 20:26:04 2005 +0000
+++ b/lang/sr/distinfo  Wed Mar 09 20:38:26 2005 +0000
@@ -1,4 +1,4 @@
-$NetBSD: distinfo,v 1.14 2005/03/08 13:49:49 is Exp $
+$NetBSD: distinfo,v 1.15 2005/03/09 20:38:26 is Exp $
 
 SHA1 (sr233.tar.Z) = 0354987527ed1e84c32d3b1fc6bacb65d647f337
 Size (sr233.tar.Z) = 1424566 bytes
@@ -17,3 +17,6 @@
 SHA1 (patch-ba) = a29a664d693585ff39bc1f8d2c4b165981cde72a
 SHA1 (patch-bb) = 6214584bde5a05386d0f31690b30a9c0a8c299af
 SHA1 (patch-bc) = be4f8c47486c5b6933494f4e92fd8c340425a167
+SHA1 (patch-bd) = d7452cc05f1b53d69369804fd00fe4274d6374e3
+SHA1 (patch-be) = eb28ba9ef73c0a030b8decb8b9f5f7e4c340ade5
+SHA1 (patch-bf) = 37d5d844f7db283b7dfb4c8fbef9d8042334e28e
diff -r 4b11a2ad2246 -r 992195f8238a lang/sr/patches/patch-bd
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/lang/sr/patches/patch-bd  Wed Mar 09 20:38:26 2005 +0000
@@ -0,0 +1,9 @@
+$NetBSD: patch-bd,v 1.1 2005/03/09 20:38:26 is Exp $
+
+--- /dev/null  2005-03-09 09:35:26.000000000 +0100
++++ vsuite/quick/ptrstr/No_input.std
+@@ -0,0 +1,4 @@
++Testing pointer-string-pointer conversions:
++Null pointer: ==null== ; string: ==null== ; int: 0 ; pt(==null==): ==null==
++pointer identity: true
++string  identity: true
diff -r 4b11a2ad2246 -r 992195f8238a lang/sr/patches/patch-be
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/lang/sr/patches/patch-be  Wed Mar 09 20:38:26 2005 +0000
@@ -0,0 +1,34 @@
+$NetBSD: patch-be,v 1.1 2005/03/09 20:38:26 is Exp $
+
+--- /dev/null  2005-03-09 09:35:53.000000000 +0100
++++ vsuite/quick/ptrstr/pointer.sr
+@@ -0,0 +1,29 @@
++resource hello()
++  type pt = ptr int
++  type pa = ptr [1:2]int
++  var foo: pa
++  var bar: pa
++  var baz: pa
++  var nul: pa
++  var foos: string[20]
++  var bars: string[20]
++  var anint: int
++  
++  write("Testing pointer-string-pointer conversions:")
++
++  nul := null
++  write("Null pointer:", nul, "; string:", string(nul),
++      "; int:", int(nul), "; pt(==null==):", pt("==null=="))
++
++  baz := new([1:2]int)
++
++  foo := new([1:2]int)
++  foos:= string(foo)
++
++  bar := pa(foos||"x")
++  bars:= string(bar)
++
++  write("pointer identity:", foo = bar)
++  write("string  identity:", foos = bars)
++
++end
diff -r 4b11a2ad2246 -r 992195f8238a lang/sr/patches/patch-bf
--- /dev/null   Thu Jan 01 00:00:00 1970 +0000
+++ b/lang/sr/patches/patch-bf  Wed Mar 09 20:38:26 2005 +0000
@@ -0,0 +1,9 @@
+$NetBSD: patch-bf,v 1.1 2005/03/09 20:38:26 is Exp $
+
+--- /dev/null  2005-03-09 09:36:06.000000000 +0100
++++ vsuite/quick/ptrstr/Script
+@@ -0,0 +1,4 @@
++#  ignatios  Wed Mar  9 09:17:45 CET 2005
++0 sr /usr/home/is/srtest/pointer.sr
++0 run
++0 rm -rf Interfaces core *.out