/trunk/Examples/test-suite/octave/overload_template_fast_runme.m
MATLAB | 188 lines | 141 code | 47 blank | 0 comment | 39 complexity | 6664576d285e969532d77f11764caec9 MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- overload_template_fast
- # unless explicitly casted via {{u}int{8,16,32,64},double,single},
- # octave will take numeric literals as doubles.
- f = foo();
- a = maximum(3,4);
- b = maximum(3.4,5.2);
- # mix 1
- if (mix1("hi") != 101)
- error("mix1(const char*)")
- endif
- if (mix1(1.1, 1.1) != 102)
- error("mix1(double, const double &)")
- endif
- if (mix1(1.1) != 103)
- error("mix1(double)")
- endif
- # mix 2
- if (mix2("hi") != 101)
- error("mix2(const char*)")
- endif
- if (mix2(1.1, 1.1) != 102)
- error("mix2(double, const double &)")
- endif
- if (mix2(1.1) != 103)
- error("mix2(double)")
- endif
- # mix 3
- if (mix3("hi") != 101)
- error("mix3(const char*)")
- endif
- if (mix3(1.1, 1.1) != 102)
- error("mix3(double, const double &)")
- endif
- if (mix3(1.1) != 103)
- error("mix3(double)")
- endif
- # Combination 1
- if (overtparams1(100) != 10)
- error("overtparams1(int)")
- endif
- if (overtparams1(100.1, 100) != 20)
- error("overtparams1(double, int)")
- endif
- # Combination 2
- if (overtparams2(100.1, 100) != 40)
- error("overtparams2(double, int)")
- endif
- # Combination 3
- if (overloaded() != 60)
- error("overloaded()")
- endif
- if (overloaded(100.1, 100) != 70)
- error("overloaded(double, int)")
- endif
- # Combination 4
- if (overloadedagain("hello") != 80)
- error("overloadedagain(const char *)")
- endif
- if (overloadedagain() != 90)
- error("overloadedagain(double)")
- endif
- # specializations
- if (specialization(10) != 202)
- error("specialization(int)")
- endif
- if (specialization(10.1) != 203)
- error("specialization(double)")
- endif
- if (specialization(10, 10) != 204)
- error("specialization(int, int)")
- endif
- if (specialization(10.1, 10.1) != 205)
- error("specialization(double, double)")
- endif
- if (specialization("hi", "hi") != 201)
- error("specialization(const char *, const char *)")
- endif
- # simple specialization
- xyz();
- xyz_int();
- xyz_double();
- # a bit of everything
- if (overload("hi") != 0)
- error("overload()")
- endif
- if (overload(1) != 10)
- error("overload(int t)")
- endif
- if (overload(1, 1) != 20)
- error("overload(int t, const int &)")
- endif
- if (overload(1, "hello") != 30)
- error("overload(int t, const char *)")
- endif
- k = Klass();
- if (overload(k) != 10)
- error("overload(Klass t)")
- endif
- if (overload(k, k) != 20)
- error("overload(Klass t, const Klass &)")
- endif
- if (overload(k, "hello") != 30)
- error("overload(Klass t, const char *)")
- endif
- if (overload(10.1, "hi") != 40)
- error("overload(double t, const char *)")
- endif
- if (overload() != 50)
- error("overload(const char *)")
- endif
- # everything put in a namespace
- if (nsoverload("hi") != 1000)
- error("nsoverload()")
- endif
- if (nsoverload(1) != 1010)
- error("nsoverload(int t)")
- endif
- if (nsoverload(1, 1) != 1020)
- error("nsoverload(int t, const int &)")
- endif
- if (nsoverload(1, "hello") != 1030)
- error("nsoverload(int t, const char *)")
- endif
- if (nsoverload(k) != 1010)
- error("nsoverload(Klass t)")
- endif
- if (nsoverload(k, k) != 1020)
- error("nsoverload(Klass t, const Klass &)")
- endif
- if (nsoverload(k, "hello") != 1030)
- error("nsoverload(Klass t, const char *)")
- endif
- if (nsoverload(10.1, "hi") != 1040)
- error("nsoverload(double t, const char *)")
- endif
- if (nsoverload() != 1050)
- error("nsoverload(const char *)")
- endif
- A.foo(1);
- b = B();
- b.foo(1);