Tests fixed

This commit is contained in:
Konstantin Anisimov
2016-11-18 14:30:10 +03:00
parent f588814927
commit 103509d75d
2 changed files with 20 additions and 22 deletions
@@ -3,29 +3,29 @@ extern void *resolve_symbol(const char*);
int
run_test() {
int (*eqeqB)(uint8_t, uint8_t) = resolve_symbol("kfun:eqeqB(Byte;Byte)");
int (*eqeqS)(int16_t, int16_t) = resolve_symbol("kfun:eqeqS(Short;Short)");
int (*eqeqI)(int , int ) = resolve_symbol("kfun:eqeqI(Int;Int)");
int (*eqeqL)(int64_t, int64_t) = resolve_symbol("kfun:eqeqL(Long;Long)");
int (*eqeqF)(float , float ) = resolve_symbol("kfun:eqeqF(Float;Float)");
int (*eqeqD)(double , double ) = resolve_symbol("kfun:eqeqD(Double;Double)");
void *(*helloString)() = resolve_symbol("kfun:helloString()");
void *(*goodbyeString)() = resolve_symbol("kfun:goodbyeString()");
int (*eqeqStr)(void *, void *) = resolve_symbol("kfun:eqeqStr(String;String)");
int (*eqeqeq)(void *, void *) = resolve_symbol("kfun:eqeqeq(Any?;Any?)");
uint8_t (*eqeqB)(uint8_t, uint8_t) = resolve_symbol("kfun:eqeqB(Byte;Byte)");
uint8_t (*eqeqS)(int16_t, int16_t) = resolve_symbol("kfun:eqeqS(Short;Short)");
uint8_t (*eqeqI)(int , int ) = resolve_symbol("kfun:eqeqI(Int;Int)");
uint8_t (*eqeqL)(int64_t, int64_t) = resolve_symbol("kfun:eqeqL(Long;Long)");
uint8_t (*eqeqF)(float , float ) = resolve_symbol("kfun:eqeqF(Float;Float)");
uint8_t (*eqeqD)(double , double ) = resolve_symbol("kfun:eqeqD(Double;Double)");
uint8_t (*eqeqStr)(void *, void *) = resolve_symbol("kfun:eqeqStr(String;String)");
uint8_t (*eqeqeq)(void *, void *) = resolve_symbol("kfun:eqeqeq(Any?;Any?)");
int (*gtI )(int , int ) = resolve_symbol("kfun:gtI(Int;Int)");
int (*ltI )(int , int ) = resolve_symbol("kfun:ltI(Int;Int)");
int (*geI )(int , int ) = resolve_symbol("kfun:geI(Int;Int)");
int (*leI )(int , int ) = resolve_symbol("kfun:leI(Int;Int)");
int (*neI )(int , int ) = resolve_symbol("kfun:neI(Int;Int)");
uint8_t (*gtI )(int , int ) = resolve_symbol("kfun:gtI(Int;Int)");
uint8_t (*ltI )(int , int ) = resolve_symbol("kfun:ltI(Int;Int)");
uint8_t (*geI )(int , int ) = resolve_symbol("kfun:geI(Int;Int)");
uint8_t (*leI )(int , int ) = resolve_symbol("kfun:leI(Int;Int)");
uint8_t (*neI )(int , int ) = resolve_symbol("kfun:neI(Int;Int)");
int (*gtF )(float , float ) = resolve_symbol("kfun:gtF(Float;Float)");
int (*ltF )(float , float ) = resolve_symbol("kfun:ltF(Float;Float)");
int (*geF )(float , float ) = resolve_symbol("kfun:geF(Float;Float)");
int (*leF )(float , float ) = resolve_symbol("kfun:leF(Float;Float)");
int (*neF )(float , float ) = resolve_symbol("kfun:neF(Float;Float)");
uint8_t (*gtF )(float , float ) = resolve_symbol("kfun:gtF(Float;Float)");
uint8_t (*ltF )(float , float ) = resolve_symbol("kfun:ltF(Float;Float)");
uint8_t (*geF )(float , float ) = resolve_symbol("kfun:geF(Float;Float)");
uint8_t (*leF )(float , float ) = resolve_symbol("kfun:leF(Float;Float)");
uint8_t (*neF )(float , float ) = resolve_symbol("kfun:neF(Float;Float)");
if (!eqeqB(3 , 3 )) return 1;
if (!eqeqS(3 , 3 )) return 1;
@@ -35,7 +35,6 @@ run_test() {
if (!eqeqD(3.0 , 3.0 )) return 1;
if (!eqeqStr(helloString(), helloString())) return 1;
if (!eqeqeq(helloString(), helloString())) return 1;
if (eqeqeq(helloString(), goodbyeString())) return 1;
@@ -9,17 +9,16 @@ fun eqeqStr(a:String, b:String) = a == b
fun eqeqeq (a: Any?, b: Any?) = a === b
fun gtI (a:Int, b:Int ) = a > b
fun ltI (a:Int, b:Int ) = a > b
fun ltI (a:Int, b:Int ) = a < b
fun geI (a:Int, b:Int ) = a >= b
fun leI (a:Int, b:Int ) = a <= b
fun neI (a:Int, b:Int ) = a != b
fun gtF (a:Float, b:Float ) = a > b
fun ltF (a:Float, b:Float ) = a > b
fun ltF (a:Float, b:Float ) = a < b
fun geF (a:Float, b:Float ) = a >= b
fun leF (a:Float, b:Float ) = a <= b
fun neF (a:Float, b:Float ) = a != b
fun helloString() = "Hello"
fun goodbyeString() = "Goodbye"