From 2159f3396e17395b480f8c3ddbe8a8af64963558 Mon Sep 17 00:00:00 2001
From: Martin Nilsson <mani@lysator.liu.se>
Date: Mon, 6 Nov 2000 02:29:03 +0100
Subject: [PATCH] Now in working condition

Rev: lib/modules/Graphics.pmod/Graph.pmod/test.pike:1.6
---
 lib/modules/Graphics.pmod/Graph.pmod/test.pike | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/lib/modules/Graphics.pmod/Graph.pmod/test.pike b/lib/modules/Graphics.pmod/Graph.pmod/test.pike
index 6d6334a5aa..068e848483 100755
--- a/lib/modules/Graphics.pmod/Graph.pmod/test.pike
+++ b/lib/modules/Graphics.pmod/Graph.pmod/test.pike
@@ -7,28 +7,44 @@ import ".";
 constant data = ([ "data":
 		   ({ ({1.0}), ({2.0}), ({1.0}), ({2.0}) }),
                 ]);
+mapping verify;
 
-void main(int num, array(string) args)
+int main(int num, array(string) args)
 {
   int w = has_value(args, "-w")||has_value(args, "--write");
+  verify = data + ([]);
 
   Image.Image image;
 
   image = Graphics.Graph.bars(data);
   if(w) Stdio.write_file("bars.gif", Image.GIF.encode(image));
+  if(!equal(data,verify))
+    error("Destructive change of argument data.\n");
 
   image = Graphics.Graph.pie(data);
   if(w) Stdio.write_file("pie.gif", Image.GIF.encode(image));
+  if(!equal(data,verify))
+    error("Destructive change of argument data.\n");
 
   image = Graphics.Graph.sumbars(data);
   if(w) Stdio.write_file("sumbars.gif", Image.GIF.encode(image));
+  if(!equal(data,verify))
+    error("Destructive change of argument data.\n");
 
   image = Graphics.Graph.line(data);
   if(w) Stdio.write_file("line.gif", Image.GIF.encode(image));
+  if(!equal(data,verify))
+    error("Destructive change of argument data.\n");
 
   image = Graphics.Graph.norm(data);
   if(w) Stdio.write_file("norm.gif", Image.GIF.encode(image));
+  if(!equal(data,verify))
+    error("Destructive change of argument data.\n");
 
   image = Graphics.Graph.graph(data);
   if(w) Stdio.write_file("graph.gif", Image.GIF.encode(image));
+  if(!equal(data,verify))
+    error("Destructive change of argument data.\n");
+
+  return 0;
 }
-- 
GitLab