File: TestLib.asy

package info (click to toggle)
luatex 0.70.1.20120524-3
  • links: PTS, VCS
  • area: main
  • in suites: wheezy
  • size: 242,132 kB
  • sloc: ansic: 890,140; cpp: 469,298; perl: 73,299; sh: 46,668; makefile: 16,604; python: 8,427; lisp: 6,684; xml: 3,926; lex: 3,784; java: 3,569; pascal: 3,569; yacc: 2,461; exp: 2,031; ruby: 1,375; objc: 1,362; tcl: 631; sed: 522; asm: 435; csh: 46; awk: 30
file content (15 lines) | stat: -rw-r--r-- 238 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
bool close(pair a, pair b) 
{
  real norm=(b == 0) ? 1 : max(abs(a),abs(b));
  return abs(a-b) <= 100*realEpsilon*norm;
}

void StartTest(string desc)
{ 
  write("Testing " + desc + "...",flush);
}

void EndTest()
{
  write("PASSED.");
}