third-party/mruby/mrbgems/mruby-test/mrbgem.rake

   1 MRuby::Gem::Specification.new('mruby-test') do |spec|
   2   spec.license = 'MIT'
   3   spec.author  = 'mruby developers'
   4   spec.summary = 'mruby test'
   5
   6   build.bins << 'mrbtest'
   7   spec.add_dependency('mruby-compiler', :core => 'mruby-compiler')
   8
   9   spec.test_rbfiles = Dir.glob("#{MRUBY_ROOT}/test/t/*.rb")
  10
  11   clib = "#{build_dir}/mrbtest.c"
  12   mlib = clib.ext(exts.object)
  13   exec = exefile("#{build.build_dir}/bin/mrbtest")
  14
  15   mrbtest_lib = libfile("#{build_dir}/mrbtest")
  16   mrbtest_objs = []
  17
  18   driver_obj = objfile("#{build_dir}/driver")
  19   # driver = "#{spec.dir}/driver.c"
  20
  21   assert_c = "#{build_dir}/assert.c"
  22   assert_rb = "#{MRUBY_ROOT}/test/assert.rb"
  23   assert_lib = assert_c.ext(exts.object)
  24   mrbtest_objs << assert_lib
  25
  26   file assert_lib => assert_c
  27   file assert_c => [assert_rb, build.mrbcfile] do |t|
  28     open(t.name, 'w') do |f|
  29       mrbc.run f, assert_rb, 'mrbtest_assert_irep'
  30     end
  31   end
  32
  33   gem_table = build.gems.generate_gem_table build
  34
  35   build.gems.each do |g|
  36     test_rbobj = g.test_rbireps.ext(exts.object)
  37     g.test_objs << test_rbobj
  38     dep_list = build.gems.tsort_dependencies(g.test_dependencies, gem_table).select(&:generate_functions)
  39
  40     file test_rbobj => g.test_rbireps
  41     file g.test_rbireps => [g.test_rbfiles, build.mrbcfile].flatten do |t|
  42       FileUtils.mkdir_p File.dirname(t.name)
  43       open(t.name, 'w') do |f|
  44         g.print_gem_test_header(f)
  45         test_preload = g.test_preload and [g.dir, MRUBY_ROOT].map {|dir|
  46           File.expand_path(g.test_preload, dir)
  47         }.find {|file| File.exist?(file) }
  48
  49         f.puts %Q[/*]
  50         f.puts %Q[ * This file contains a test code for #{g.name} gem.]
  51         f.puts %Q[ *]
  52         f.puts %Q[ * IMPORTANT:]
  53         f.puts %Q[ *   This file was generated!]
  54         f.puts %Q[ *   All manual changes will get lost.]
  55         f.puts %Q[ */]
  56         if test_preload.nil?
  57           f.puts %Q[extern const uint8_t mrbtest_assert_irep[];]
  58         else
  59           g.build.mrbc.run f, test_preload, "gem_test_irep_#{g.funcname}_preload"
  60         end
  61         g.test_rbfiles.flatten.each_with_index do |rbfile, i|
  62           g.build.mrbc.run f, rbfile, "gem_test_irep_#{g.funcname}_#{i}"
  63         end
  64         f.puts %Q[void mrb_#{g.funcname}_gem_test(mrb_state *mrb);] unless g.test_objs.empty?
  65         dep_list.each do |d|
  66           f.puts %Q[void GENERATED_TMP_mrb_#{d.funcname}_gem_init(mrb_state *mrb);]
  67           f.puts %Q[void GENERATED_TMP_mrb_#{d.funcname}_gem_final(mrb_state *mrb);]
  68         end
  69         f.puts %Q[void mrb_init_test_driver(mrb_state *mrb, mrb_bool verbose);]
  70         f.puts %Q[void mrb_t_pass_result(mrb_state *dst, mrb_state *src);]
  71         f.puts %Q[void GENERATED_TMP_mrb_#{g.funcname}_gem_test(mrb_state *mrb) {]
  72         unless g.test_rbfiles.empty?
  73           f.puts %Q[  mrb_state *mrb2;]
  74           unless g.test_args.empty?
  75             f.puts %Q[  mrb_value test_args_hash;]
  76           end
  77           f.puts %Q[  int ai;]
  78           g.test_rbfiles.count.times do |i|
  79             f.puts %Q[  ai = mrb_gc_arena_save(mrb);]
  80             f.puts %Q[  mrb2 = mrb_open_core(mrb_default_allocf, NULL);]
  81             f.puts %Q[  if (mrb2 == NULL) {]
  82             f.puts %Q[    fprintf(stderr, "Invalid mrb_state, exiting \%s", __FUNCTION__);]
  83             f.puts %Q[    exit(EXIT_FAILURE);]
  84             f.puts %Q[  }]
  85             dep_list.each do |d|
  86               f.puts %Q[  GENERATED_TMP_mrb_#{d.funcname}_gem_init(mrb2);]
  87               f.puts %Q[  mrb_state_atexit(mrb2, GENERATED_TMP_mrb_#{d.funcname}_gem_final);]
  88             end
  89             f.puts %Q[  mrb_init_test_driver(mrb2, mrb_test(mrb_gv_get(mrb, mrb_intern_lit(mrb, "$mrbtest_verbose"))));]
  90             if test_preload.nil?
  91               f.puts %Q[  mrb_load_irep(mrb2, mrbtest_assert_irep);]
  92             else
  93               f.puts %Q[  mrb_load_irep(mrb2, gem_test_irep_#{g.funcname}_preload);]
  94             end
  95             f.puts %Q[  if (mrb2->exc) {]
  96             f.puts %Q[    mrb_print_error(mrb2);]
  97             f.puts %Q[    mrb_close(mrb2);]
  98             f.puts %Q[    exit(EXIT_FAILURE);]
  99             f.puts %Q[  }]
 100             f.puts %Q[  mrb_const_set(mrb2, mrb_obj_value(mrb2->object_class), mrb_intern_lit(mrb2, "GEMNAME"), mrb_str_new(mrb2, "#{g.name}", #{g.name.length}));]
 101
 102             unless g.test_args.empty?
 103               f.puts %Q[  test_args_hash = mrb_hash_new_capa(mrb, #{g.test_args.length}); ]
 104               g.test_args.each do |arg_name, arg_value|
 105                 escaped_arg_name = arg_name.gsub('\\', '\\\\\\\\').gsub('"', '\"')
 106                 escaped_arg_value = arg_value.gsub('\\', '\\\\\\\\').gsub('"', '\"')
 107                 f.puts %Q[  mrb_hash_set(mrb2, test_args_hash, mrb_str_new(mrb2, "#{escaped_arg_name.to_s}", #{escaped_arg_name.to_s.length}), mrb_str_new(mrb2, "#{escaped_arg_value.to_s}", #{escaped_arg_value.to_s.length})); ]
 108               end
 109               f.puts %Q[  mrb_const_set(mrb2, mrb_obj_value(mrb2->object_class), mrb_intern_lit(mrb2, "TEST_ARGS"), test_args_hash); ]
 110             end
 111
 112             f.puts %Q[  mrb_#{g.funcname}_gem_test(mrb2);] if g.custom_test_init?
 113
 114             f.puts %Q[  mrb_load_irep(mrb2, gem_test_irep_#{g.funcname}_#{i});]
 115             f.puts %Q[  ]
 116
 117             f.puts %Q[  mrb_t_pass_result(mrb, mrb2);]
 118             f.puts %Q[  mrb_close(mrb2);]
 119             f.puts %Q[  mrb_gc_arena_restore(mrb, ai);]
 120           end
 121         end
 122         f.puts %Q[}]
 123       end
 124     end
 125   end
 126
 127   build.gems.each do |v|
 128     mrbtest_objs.concat v.test_objs
 129   end
 130
 131   file mrbtest_lib => mrbtest_objs do |t|
 132     build.archiver.run t.name, t.prerequisites
 133   end
 134
 135   unless build.build_mrbtest_lib_only?
 136     file exec => [driver_obj, mlib, mrbtest_lib, build.libmruby_static] do |t|
 137       gem_flags = build.gems.map { |g| g.linker.flags }
 138       gem_flags_before_libraries = build.gems.map { |g| g.linker.flags_before_libraries }
 139       gem_flags_after_libraries = build.gems.map { |g| g.linker.flags_after_libraries }
 140       gem_libraries = build.gems.map { |g| g.linker.libraries }
 141       gem_library_paths = build.gems.map { |g| g.linker.library_paths }
 142       build.linker.run t.name, t.prerequisites, gem_libraries, gem_library_paths, gem_flags,
 143                        gem_flags_before_libraries, gem_flags_after_libraries
 144     end
 145   end
 146
 147   # store the last gem selection and make the re-build
 148   # of the test gem depending on a change to the gem
 149   # selection
 150   active_gems_path = "#{build_dir}/active_gems_path.lst"
 151   active_gem_list = if File.exist? active_gems_path
 152                       File.read active_gems_path
 153                     else
 154                       FileUtils.mkdir_p File.dirname(active_gems_path)
 155                       nil
 156                     end
 157   current_gem_list = build.gems.map(&:name).join("\n")
 158   task active_gems_path do |_t|
 159     FileUtils.mkdir_p File.dirname(active_gems_path)
 160     File.write active_gems_path, current_gem_list
 161   end
 162   file clib => active_gems_path if active_gem_list != current_gem_list
 163
 164   file mlib => clib
 165   file clib => [build.mrbcfile, __FILE__] do |_t|
 166     _pp "GEN", "*.rb", "#{clib.relative_path}"
 167     FileUtils.mkdir_p File.dirname(clib)
 168     open(clib, 'w') do |f|
 169       f.puts %Q[/*]
 170       f.puts %Q[ * This file contains a list of all]
 171       f.puts %Q[ * test functions.]
 172       f.puts %Q[ *]
 173       f.puts %Q[ * IMPORTANT:]
 174       f.puts %Q[ *   This file was generated!]
 175       f.puts %Q[ *   All manual changes will get lost.]
 176       f.puts %Q[ */]
 177       f.puts %Q[]
 178       f.puts %Q[struct mrb_state;]
 179       f.puts %Q[typedef struct mrb_state mrb_state;]
 180       build.gems.each do |g|
 181         f.puts %Q[void GENERATED_TMP_mrb_#{g.funcname}_gem_test(mrb_state *mrb);]
 182       end
 183       f.puts %Q[void mrbgemtest_init(mrb_state* mrb) {]
 184       build.gems.each do |g|
 185         f.puts %Q[    GENERATED_TMP_mrb_#{g.funcname}_gem_test(mrb);]
 186       end
 187       f.puts %Q[}]
 188     end
 189   end
 190 end