sapphire-lang 0.8.0

Gradually typed scripting language where every value is an object and types are optional, checked at runtime
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

use super::{VmValue, eval};

#[test]
fn is_a_instance_hierarchy() {
    let base = "class Animal { attr name }\nclass Dog < Animal { attr breed }\nd = Dog.new(name: \"Rex\", breed: \"Lab\")\n";

    assert_eq!(
        eval(&(base.to_string() + "d.is_a?(Dog)")),
        VmValue::Bool(true)
    );
    assert_eq!(
        eval(&(base.to_string() + "d.is_a?(Animal)")),
        VmValue::Bool(true)
    );
}

#[test]
fn is_a_unrelated_class() {
    let src = "class Animal { attr name }\nclass Dog < Animal { attr breed }\nclass Cat {}\nd = Dog.new(name: \"Rex\", breed: \"Lab\")\n";
    assert_eq!(
        eval(&(src.to_string() + "d.is_a?(Cat)")),
        VmValue::Bool(false)
    );
}

#[test]
fn nil_methods() {
    assert_eq!(eval("nil.nil?()"), VmValue::Bool(true));
    assert_eq!(eval("false.nil?()"), VmValue::Bool(false));
    assert_eq!(eval("nil.to_s()"), VmValue::Str("nil".into()));
}

#[test]
fn bool_methods() {
    assert_eq!(eval("true.to_s()"), VmValue::Str("true".into()));
    assert_eq!(eval("false.to_s()"), VmValue::Str("false".into()));
}

#[test]
fn class_method() {
    assert_eq!(
        eval("class Dog {}\nDog.new.class.name"),
        VmValue::Str("Dog".into())
    );
    assert_eq!(
        eval("42.class.name"),
        VmValue::Str("Int".into())
    );
    assert_eq!(
        eval("\"hi\".class.name"),
        VmValue::Str("String".into())
    );
}

#[test]
fn superclass_method() {
    assert_eq!(
        eval("class Animal {}\nclass Dog < Animal {}\nDog.superclass.name"),
        VmValue::Str("Animal".into())
    );
    assert_eq!(
        eval("Object.superclass"),
        VmValue::Nil
    );
    assert_eq!(
        eval("class Animal {}\nclass Dog < Animal {}\nDog.new.class.superclass.name"),
        VmValue::Str("Animal".into())
    );
}

#[test]
fn class_obj_bootstrap() {
    // Set instances return the bootstrapped ClassObj for Set.
    assert_eq!(
        eval("Set.new.class.name"),
        VmValue::Str("Set".into())
    );
    // The Set ClassObj's class is Class.
    assert_eq!(
        eval("Set.new.class.class.name"),
        VmValue::Str("Class".into())
    );
    // Class.class is Class (circular).
    assert_eq!(
        eval("Set.new.class.class.class.name"),
        VmValue::Str("Class".into())
    );
    // Object.superclass is nil (root of the hierarchy).
    assert_eq!(
        eval("Object.superclass"),
        VmValue::Nil
    );
    // Set's ClassObj is accessible directly and has the right name.
    assert_eq!(
        eval("Set.name"),
        VmValue::Str("Set".into())
    );
    // Class.name works.
    assert_eq!(
        eval("Class.name"),
        VmValue::Str("Class".into())
    );
}