root/tolp/trunk/tol_tests/tol/Bugzilla/bug_001101/test.tol @ 3230

Revision 3230, 1.3 kB (checked in by vdebuen, 3 years ago)

Refs #1101

  • Property svn:eol-style set to native
Line 
1/* -*- mode: C++ -*- */
2//////////////////////////////////////////////////////////////////////////////
3// FILE   : test.tol
4// PURPOSE: test for a resolved bug
5//////////////////////////////////////////////////////////////////////////////
6
7//Sets the bugzilla identifier number, your e-mail and the bugŽs summary
8  Real bugNum_ =  1091;
9  Text email_ = "vdebuen@tol-project.org"; 
10  Text summary_="Maximum filename length and OisStore";
11  Text link_ = GetTolBugzillaLink(bugNum_);
12
13  //Write here the initial test TOL code if needed
14  Real numErr0 = Copy(NError);
15  Real numWar0 = Copy(NWarning);
16
17  WriteLn("TRACE 1 NObjects = "<<Copy(NObject));
18
19  Set check.1 = { Include("check.1.tol") };
20  Set check.2 = { Include("check.2.tol") };
21
22  WriteLn("TRACE 2 NObjects = "<<Copy(NObject));
23
24  Real numErr1 = Copy(NError);
25  Real numWar1 = Copy(NWarning);
26
27  Set ok.all = [[numErr0 == numErr1, check.1::ok.1, check.1::ok.2]] << check.2::ok.all;
28
29  Set partialResults_ = [[ numErr0, numErr1]] << ok.all;
30
31//This is a messure of the success of the test
32  Real quality_ = Group("And",ok.all);
33
34//Return the results
35  Set resultStr_ = @strTestStatus(summary_, link_, quality_,
36                    "Partial results = "<<partialResults_,
37                    "NO DBServerType", "NO DBServerHost", "NO DBAlias",
38                    email_);
39  WriteLn(""<<resultStr_);
40  resultStr_;
41
42/* */
43
Note: See TracBrowser for help on using the browser.