csharpFreiburg: csTestFbg.cs Source File

00001 /*
00002  *  csharpFreiburg - src/CSharpFreiburg/src/CsTestFbg/csTestFbg.cs
00003  *  
00004  *  (C) 2004 - Freiburg - Project - Group
00005  *  ------------------------------------------------------
00006  *  EMail: freiburg AT compiler-factory DOT de
00007  *  ------------------------------------------------------
00008  *  all rights reserved
00009  */
00010 
00011 using System;
00012 
00014 public class Test : TestFbg
00015 {
00016 
00017     public static void Main(string[] argv)
00018     {   
00019         TestFbg CTX = new TestFbg(argv);
00020 
00021         MakeTest ("Echo2-1", CTX.Echo2(22222), (short) 22222);
00022         MakeTest ("Echo2-2", CTX.Echo2(543.0), (short) 543.0);
00023 
00024         MakeTest ("Echo4-1", CTX.Echo4(237542578), 237542578);
00025 
00026         MakeTest ("Echo8-1", CTX.Echo8(237542578247854215), 237542578247854215);
00027         MakeTest ("Echo8-2", CTX.Echo8("237542578247854215"), 237542578247854215);
00028         MakeTest ("Echo8-3", CTX.Echo8(2.52836e13), (long) 2.52836e13);
00029 
00030         MakeTest ("EchoF-1", CTX.EchoF("1234.5678"), (float) 1234.5678);
00031 
00032         MakeTest ("EchoD-1", CTX.EchoD(237542578247854215), (double) 237542578247854215);
00033 
00034         MakeTest ("param-1", CTX.Param(), "binary", "type", "SERVER", "context", "PARENT");
00035 
00036         MakeTest ("EchoS-1", CTX.EchoS("äöüß!<"), "äöüß!<");
00037 
00038         MakeTest ("Err1--1", CTX.Err1(), "[pTokenCheckSystem] [SERVER] > [PANIC] this is a non recoverable error\nfound in procedure \"Ot_ERR1\"\nfound in procedure \"MqSendEND_AND_WAIT\" at file \"send.c\"");
00039 
00040         MakeTest ("Err2--1", CTX.Err2(), "TestFbg <Tok|ERR2> <Nr|10>\n -> some error");
00041 
00042         GC.Collect(0);
00043     }
00044 }