|
Revision 2636, 0.8 KB
(checked in by Charles.Esterbrook, 7 weeks ago)
|
|
JVM back-end progress.
credit:hopscc
|
-
Property svn:eol-style set to
native
|
| Line | |
|---|
| 1 | #.require. jvm |
|---|
| 2 | namespace Test |
|---|
| 3 | |
|---|
| 4 | class Test |
|---|
| 5 | |
|---|
| 6 | def main |
|---|
| 7 | is shared |
|---|
| 8 | |
|---|
| 9 | f as float = 1.0f |
|---|
| 10 | assert f |
|---|
| 11 | assert f==1.0f |
|---|
| 12 | assert f==1 |
|---|
| 13 | |
|---|
| 14 | sum as float = 0.1f+0.1f+0.1f+0.1f+0.1f+0.1f+0.1f+0.1f+0.1f+0.1f |
|---|
| 15 | assert sum<>1.0f |
|---|
| 16 | assert sum<>0.1f*10 |
|---|
| 17 | |
|---|
| 18 | ff = Float(1.0f) |
|---|
| 19 | assert ff inherits Float # .warning. is always |
|---|
| 20 | ii = Integer(1) |
|---|
| 21 | #assert not (ii inherits Float) # . warning. is never |
|---|
| 22 | # above also throws compiler error |
|---|
| 23 | o as Object = ii |
|---|
| 24 | assert not (o inherits Float) |
|---|
| 25 | |
|---|
| 26 | g as float = 2f |
|---|
| 27 | assert g |
|---|
| 28 | assert g == 2.0f |
|---|
| 29 | assert g == 2.00f |
|---|
| 30 | assert g == 2 |
|---|
| 31 | assert g == f + f |
|---|
| 32 | |
|---|
| 33 | # small numbers |
|---|
| 34 | a = 0.00001f |
|---|
| 35 | b = 0.000001f |
|---|
| 36 | assert a > b |
|---|
| 37 | |
|---|
| 38 | # can assign ints to floats |
|---|
| 39 | f = 7 |
|---|
| 40 | |
|---|
| 41 | # can compare ints and floats |
|---|
| 42 | assert f > 0 |
|---|
| 43 | assert 0 < f |
|---|
