From 9fbafbfd1e5f6eef8e4d89494601444d90f602cc Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Sat, 26 Dec 2015 19:00:16 +0100
Subject: [PATCH] frontend/device.c, com_alter_common(), #11/11 regression test

---
 tests/regression/misc/Makefile.am   |  2 +-
 tests/regression/misc/alter-vec.cir | 47 +++++++++++++++++++++++++++++
 tests/regression/misc/alter-vec.out |  1 +
 3 files changed, 49 insertions(+), 1 deletion(-)
 create mode 100644 tests/regression/misc/alter-vec.cir
 create mode 100644 tests/regression/misc/alter-vec.out

diff --git a/tests/regression/misc/Makefile.am b/tests/regression/misc/Makefile.am
index cabd923d8..49ecdd8d7 100644
--- a/tests/regression/misc/Makefile.am
+++ b/tests/regression/misc/Makefile.am
@@ -1,7 +1,7 @@
 ## Process this file with automake to produce Makefile.in
 
 
-TESTS = bugs-1.cir bugs-2.cir dollar-1.cir empty-1.cir resume-1.cir log-functions-1.cir
+TESTS = bugs-1.cir bugs-2.cir dollar-1.cir empty-1.cir resume-1.cir log-functions-1.cir alter-vec.cir
 
 TESTS_ENVIRONMENT = ngspice_vpath=$(srcdir) $(SHELL) $(top_srcdir)/tests/bin/check.sh $(top_builddir)/src/ngspice
 
diff --git a/tests/regression/misc/alter-vec.cir b/tests/regression/misc/alter-vec.cir
new file mode 100644
index 000000000..044cd17d6
--- /dev/null
+++ b/tests/regression/misc/alter-vec.cir
@@ -0,0 +1,47 @@
+* check alter @v1[pulse] = [ 1 2 3 4 5 6 ]
+*
+* (exec-spice "ngspice -b %s" t)
+*
+* see com_alter_common() in frontend/device.c
+
+v1 1 0 dc 0.25 pulse( -1 2 3m 4u 5u 6m 7m)
+
+.control
+
+op
+
+let vec1 = @v1[pulse]
+compose gold1 values -1 2 3m 4u 5u 6m 7m
+let err1 = vecmax(abs(vec1/gold1 - 1))
+
+alter @v1[pulse] = [ 2 5 11n 12n 13n 54n 105n ]
+
+let vec2 = @v1[pulse]
+compose gold2 values 2 5 11n 12n 13n 54n 105n
+let err2 = vecmax(abs(vec2/gold2 - 1))
+
+echo "Note: err1 = " $&err1
+echo "Note: err2 = " $&err2
+
+let success = 0
+
+if err1 > 1e-15
+  echo "ERROR: test1 failed, excessive error"
+else
+  let success = success + 1
+end
+
+if err2 > 1e-15
+  echo "ERROR: test2 failed, excessive error"
+else
+  let success = success + 1
+end
+
+if success eq 2
+   echo "INFO: success"
+   quit 0
+else
+   quit 1
+end
+
+.endc
diff --git a/tests/regression/misc/alter-vec.out b/tests/regression/misc/alter-vec.out
new file mode 100644
index 000000000..8e9036969
--- /dev/null
+++ b/tests/regression/misc/alter-vec.out
@@ -0,0 +1 @@
+INFO: success