Changeset 9951d06 in tol

Timestamp:

Feb 9, 2011, 9:39:17 AM (16 years ago)

Author:

Víctor de Buen <vdebuen@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

a6d6f7e

Parents:

8f99127

Message:

Refs #887

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@3142 be4846ae-f051-483a-831f-b64e7d08527f

Location:

tol_tests/tol/Bugzilla/bug_000887

Files:

• create.tol (modified) (2 diffs)
• load.tol (modified) (3 diffs)

tol_tests/tol/Bugzilla/bug_000887/create.tol

@@ -1 +1 @@
 
-
-Real Ois.Create("oza1.oza", Empty, [[Real one=1]]); 
+Serie ser = CalInd(C,Mensual);
+Real Ois.Create("serie.oza", Empty, [[ser]]); 
 
 Real Ois.Store([[
@@ -7 +7 @@
       Real Copy(i)
   })
-]],"oza2.oza");
+]],"set.oza");
 

tol_tests/tol/Bugzilla/bug_000887/load.tol

@@ +1 @@
+//Text oza = "serie.oza";
+//Text oza = "set.oza";
+  Text oza = "ejemplo.oza";
 
-/*
+//Real EnableTraceMemory := True;
+//Set aux = Ois.Load(oza);
+
+/* */
 Real j = 1;
-
 Real  N0 = Copy(NObject);
 
-While (j<=3,
+While (j<=10,
 {
   Real  Ni = Copy(NObject);
   WriteLn("Número de objetos al inicio del ciclo "<<j+": "<<(Ni-N0));
   Real n = { 
-    Set aux = Ois.Load("oza1.oza");
+    Set aux = Ois.Load(oza);
     WriteLn("Número de objetos "<<j+".2: "<<(Copy(NObject)-Ni));
     //Copy(Card(aux))
@@ -21 +26 @@
 WriteLn("Número de objetos perdidos: "<<(Copy(NObject)-N0));
 
-*/
+/* * /
 
-
-//Real EnableTraceMemory := False;
+Real EnableTraceMemory := True;
 Real  N0 = Copy(NObject);
 
 Real x = {
-  Set aux = Ois.Load("oza1.oza");
+  Set aux = Ois.Load(oza);
 //Set aux = [[Real one_=1]];
   0
@@ -34 +38 @@
 WriteLn("Número de objetos perdidos: "<<(Copy(NObject)-N0-3));
 
+/* */