test/hkl-test-sample.c

   1 #include <math.h>
   2
   3 #include <hkl/hkl-sample.h>
   4 #include <hkl/hkl-geometry-factory.h>
   5
   6 #include "hkl-test.h"
   7
   8 #ifdef HKL_TEST_SUITE_NAME
   9 # undef HKL_TEST_SUITE_NAME
  10 #endif
  11 #define HKL_TEST_SUITE_NAME sample
  12
  13 HKL_TEST_SUITE_FUNC(new)
  14 {
  15         HklDetector *det;
  16         HklGeometry *geom;
  17         HklSample *sample;
  18
  19         det = hkl_detector_new();
  20         geom = hkl_geometry_factory_new(HKL_GEOMETRY_EULERIAN4C_VERTICAL);
  21         sample = hkl_sample_new("test", HKL_SAMPLE_MONOCRYSTAL);
  22
  23         hkl_sample_free(sample);
  24         hkl_detector_free(det);
  25         hkl_geometry_free(geom);
  26
  27         return HKL_TEST_PASS;
  28 }
  29
  30 HKL_TEST_SUITE_FUNC(add_reflection)
  31 {
  32         HklDetector *det;
  33         HklGeometry *geom;
  34         HklSample *sample;
  35         HklSampleReflection *ref;
  36
  37         det = hkl_detector_new();
  38         geom = hkl_geometry_factory_new(HKL_GEOMETRY_EULERIAN4C_VERTICAL);
  39         det->idx = 1;
  40         sample = hkl_sample_new("test", HKL_SAMPLE_MONOCRYSTAL);
  41
  42         ref = hkl_sample_add_reflection(sample, geom, det, 1, 0, 0);
  43
  44         hkl_sample_free(sample);
  45         hkl_detector_free(det);
  46         hkl_geometry_free(geom);
  47
  48         return HKL_TEST_PASS;
  49 }
  50
  51 HKL_TEST_SUITE_FUNC(get_reflection)
  52 {
  53         HklDetector *det;
  54         HklGeometry *geom;
  55         HklSample *sample;
  56         HklSampleReflection *ref;
  57         HklSampleReflection *ref2;
  58
  59         det = hkl_detector_new();
  60         geom = hkl_geometry_factory_new(HKL_GEOMETRY_EULERIAN4C_VERTICAL);
  61         det->idx = 1;
  62         sample = hkl_sample_new("test", HKL_SAMPLE_MONOCRYSTAL);
  63
  64         ref = hkl_sample_add_reflection(sample, geom, det, 1, 0, 0);
  65         ref2 = hkl_sample_get_reflection(sample, 0);
  66
  67         HKL_ASSERT_EQUAL(ref, ref2);
  68
  69         hkl_sample_free(sample);
  70         hkl_detector_free(det);
  71         hkl_geometry_free(geom);
  72
  73         return HKL_TEST_PASS;
  74 }
  75
  76 HKL_TEST_SUITE_FUNC(del_reflection)
  77 {
  78         HklDetector *det;
  79         HklGeometry *geom;
  80         HklSample *sample;
  81         HklSampleReflection *ref;
  82
  83         det = hkl_detector_new();
  84         geom = hkl_geometry_factory_new(HKL_GEOMETRY_EULERIAN4C_VERTICAL);
  85         det->idx = 1;
  86         sample = hkl_sample_new("test", HKL_SAMPLE_MONOCRYSTAL);
  87
  88         ref = hkl_sample_add_reflection(sample, geom, det, 1, 0, 0);
  89         hkl_sample_del_reflection(sample, 0);
  90         HKL_ASSERT_EQUAL(0, sample->reflections->len);
  91
  92         hkl_sample_free(sample);
  93         hkl_detector_free(det);
  94         hkl_geometry_free(geom);
  95
  96         return HKL_TEST_PASS;
  97 }
  98
  99 HKL_TEST_SUITE_BEGIN
 100
 101 HKL_TEST( new );
 102 HKL_TEST( add_reflection );
 103 HKL_TEST( get_reflection );
 104 HKL_TEST( del_reflection );
 105
 106 HKL_TEST_SUITE_END