#! /usr/bin/perl -w # Tests basic ff3d input/output operations that will be necessary for # the following tests to work. require 'check.ph'; Run(<< 'EOF'); // Testing comments cout << "cout test\n"; // Testing comments again cout << "1 = " << 1 << "\n"; cout << "-1 = " << -1 << "\n"; cout << "1.23456e7 = " << 1.23456e7 << "\n"; cout << "1.23456e-7 = " << 1.23456e-7 << "\n"; cout << "-1.23456e7 = " << -1.23456e7 << "\n"; cout << "-1.23456e-7 = " << -1.23456e-7 << "\n"; EOF Check('cout test'); Check('1 = 1'); Check('-1 = -1'); Check('1\.23456e7 = 1\.23456e\+07'); Check('1\.23456e-7 = 1\.23456e-07'); Check('-1\.23456e7 = -1\.23456e\+07'); Check('-1\.23456e-7 = -1\.23456e-07'); Report();