Last change
on this file since 270 was 270, checked in by coas-nagasima, 7 years ago |
mruby版ECNLプロトタイピング・ツールを追加
|
-
Property svn:eol-style
set to
native
-
Property svn:keywords
set to
Id
-
Property svn:mime-type
set to
text/x-csrc
|
File size:
1009 bytes
|
Rev | Line | |
---|
[270] | 1 | #include <stdlib.h>
|
---|
| 2 | #include "mruby.h"
|
---|
| 3 | #include "mruby/irep.h"
|
---|
| 4 | #include "mruby/variable.h"
|
---|
| 5 |
|
---|
| 6 | extern const uint8_t mrbtest_assert_irep[];
|
---|
| 7 | extern const uint8_t mrbtest_irep[];
|
---|
| 8 |
|
---|
| 9 | void mrbgemtest_init(mrb_state* mrb);
|
---|
| 10 | void mrb_init_test_driver(mrb_state* mrb, mrb_bool verbose);
|
---|
| 11 | void mrb_t_pass_result(mrb_state *mrb_dst, mrb_state *mrb_src);
|
---|
| 12 |
|
---|
| 13 | void
|
---|
| 14 | mrb_init_mrbtest(mrb_state *mrb)
|
---|
| 15 | {
|
---|
| 16 | mrb_state *core_test;
|
---|
| 17 |
|
---|
| 18 | mrb_load_irep(mrb, mrbtest_assert_irep);
|
---|
| 19 |
|
---|
| 20 | core_test = mrb_open_core(mrb_default_allocf, NULL);
|
---|
| 21 | if (core_test == NULL) {
|
---|
| 22 | fprintf(stderr, "Invalid mrb_state, exiting %s", __FUNCTION__);
|
---|
| 23 | exit(EXIT_FAILURE);
|
---|
| 24 | }
|
---|
| 25 | mrb_init_test_driver(core_test, mrb_test(mrb_gv_get(mrb, mrb_intern_lit(mrb, "$mrbtest_verbose"))));
|
---|
| 26 | mrb_load_irep(core_test, mrbtest_assert_irep);
|
---|
| 27 | mrb_load_irep(core_test, mrbtest_irep);
|
---|
| 28 | mrb_t_pass_result(mrb, core_test);
|
---|
| 29 |
|
---|
| 30 | #ifndef DISABLE_GEMS
|
---|
| 31 | mrbgemtest_init(mrb);
|
---|
| 32 | #endif
|
---|
| 33 |
|
---|
| 34 | if (mrb->exc) {
|
---|
| 35 | mrb_print_error(mrb);
|
---|
| 36 | exit(EXIT_FAILURE);
|
---|
| 37 | }
|
---|
| 38 | mrb_close(core_test);
|
---|
| 39 | }
|
---|
| 40 |
|
---|
Note:
See
TracBrowser
for help on using the repository browser.