47 lines
775 B
C++
47 lines
775 B
C++
#include <Hawk.hpp>
|
|
#include <stdio.h>
|
|
#include "tap.h"
|
|
|
|
#define OK_X(test) OK(test, #test)
|
|
|
|
static void test1()
|
|
{
|
|
HAWK::HawkStd hawk;
|
|
HAWK::Hawk::Run* rtx;
|
|
int n;
|
|
|
|
n = hawk.open();
|
|
OK_X(n == 0);
|
|
|
|
HAWK::HawkStd::SourceString in("BEGIN{}");
|
|
rtx = hawk.parse(in, HAWK::Hawk::Source::NONE);
|
|
OK_X(rtx != HAWK_NULL);
|
|
|
|
HAWK::Hawk::Value v(rtx);
|
|
HAWK::Hawk::Value vi(rtx);
|
|
|
|
vi.setInt(1010);
|
|
OK_X(vi.getType() == HAWK_VAL_INT);
|
|
|
|
v.setMbs("hello", 5);
|
|
OK_X(v.getType() == HAWK_VAL_MBS);
|
|
|
|
v.setArrayedVal(4, vi);
|
|
OK_X(v.getType() == HAWK_VAL_ARR);
|
|
OK_X(v.getArrayedSize() == 5);
|
|
OK_X(v.getArrayedLength() == 1);
|
|
|
|
// i must not call hawk.close() to ensure that v is destroyed first.
|
|
//hawk.close();
|
|
}
|
|
|
|
int main()
|
|
{
|
|
no_plan ();
|
|
|
|
test1();
|
|
|
|
return exit_status();
|
|
}
|
|
|