2 #include "NasalHash.hxx"
10 std::cerr << "failed:" << #a << std::endl; \
16 naRef member(int, naRef*) { return naNil(); }
22 int getX() const { return _x; }
23 void setX(int x) { _x = x; }
26 int main(int argc, char* argv[])
28 naContext c = naNewContext();
31 using namespace nasal;
33 r = to_nasal(c, "Test");
34 VERIFY( strncmp("Test", naStr_data(r), naStr_len(r)) == 0 );
35 VERIFY( from_nasal<std::string>(c, r) == "Test" );
37 r = to_nasal(c, std::string("Test"));
38 VERIFY( strncmp("Test", naStr_data(r), naStr_len(r)) == 0 );
39 VERIFY( from_nasal<std::string>(c, r) == "Test" );
42 VERIFY( naNumValue(r).num == 42 );
43 VERIFY( from_nasal<int>(c, r) == 42 );
45 r = to_nasal(c, 4.2f);
46 VERIFY( naNumValue(r).num == 4.2f );
47 VERIFY( from_nasal<float>(c, r) == 4.2f );
52 r = to_nasal(c, "string");
55 from_nasal<int>(c, r);
57 std::cerr << "failed: Expected bad_nasal_cast to be thrown" << std::endl;
60 catch(nasal::bad_nasal_cast&)
65 hash.set("vec2", vec);
66 hash.set("name", "my-name");
67 hash.set("string", std::string("blub"));
69 r = to_nasal(c, hash);
70 VERIFY( naIsHash(r) );
72 Hash mod = hash.createHash("mod");
73 mod.set("parent", hash);
75 Ghost<Base>::init("Base")
76 .method<&Base::member>("member");
77 Ghost<Derived>::init("Derived")
79 .member("x", &Derived::getX, &Derived::setX);
81 naRef derived = Ghost<Derived>::create(c);
82 VERIFY( naIsGhost(derived) );
83 // TODO actuall do something with the ghosts...