aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/specification/compositor/generation/structure.lux
blob: 3d6b482add052ffa8c708965c6e2b91792089c7c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
(.using
 [lux (.except)
  ["_" test (.only Test)]
  [abstract
   [monad (.only do)]]
  [control
   ["[0]" pipe]
   ["[0]" maybe]
   ["[0]" try]]
  [data
   [number
    ["n" nat]
    ["i" int]]
   ["[0]" text (.open: "[1]#[0]" equivalence)
    ["%" \\format (.only format)]]
   [collection
    ["[0]" array (.only Array)]
    ["[0]" list (.open: "[1]#[0]" functor)]]]
  [math
   ["r" random]]
  ["[0]" ffi (.only import)]
  [tool
   [compiler
    ["[0]" analysis]
    ["[0]" synthesis]]]]
 [///
  [common (.only Runner)]])

(import java/lang/Integer)

(def: (variant run)
  (-> Runner Test)
  (do [! r.monad]
    [num_tags (|> r.nat (at ! each (|>> (n.% 10) (n.max 2))))
     tag_in (|> r.nat (at ! each (n.% num_tags)))
     .let [last?_in (|> num_tags -- (n.= tag_in))]
     value_in r.i64]
    (_.property (%.symbol (symbol synthesis.variant))
      (|> (synthesis.variant [analysis.#lefts (if last?_in
                                                (-- tag_in)
                                                tag_in)
                              analysis.#right? last?_in
                              analysis.#value (synthesis.i64 value_in)])
          (run "variant")
          (pipe.case
            {try.#Success valueT}
            (let [valueT (as (Array Any) valueT)]
              (and (n.= 3 (array.size valueT))
                   (let [tag_out (as java/lang/Integer (maybe.trusted (array.read! 0 valueT)))
                         last?_out (array.read! 1 valueT)
                         value_out (as Any (maybe.trusted (array.read! 2 valueT)))
                         same_tag? (|> tag_out ffi.int_to_long (as Nat) (n.= tag_in))
                         same_flag? (case last?_out
                                      {.#Some last?_out'}
                                      (and last?_in (text#= "" (as Text last?_out')))

                                      {.#None}
                                      (not last?_in))
                         same_value? (|> value_out (as Int) (i.= value_in))]
                     (and same_tag?
                          same_flag?
                          same_value?))))

            {try.#Failure _}
            false)))))

(def: (tuple run)
  (-> Runner Test)
  (do [! r.monad]
    [size (|> r.nat (at ! each (|>> (n.% 10) (n.max 2))))
     tuple_in (r.list size r.i64)]
    (_.property (%.symbol (symbol synthesis.tuple))
      (|> (synthesis.tuple (list#each (|>> synthesis.i64) tuple_in))
          (run "tuple")
          (pipe.case
            {try.#Success tuple_out}
            (let [tuple_out (as (Array Any) tuple_out)]
              (and (n.= size (array.size tuple_out))
                   (list.every? (function (_ [left right])
                                  (i.= left (as Int right)))
                                (list.zipped_2 tuple_in (array.list tuple_out)))))

            {try.#Failure _}
            false)))))

(def: .public (spec runner)
  (-> Runner Test)
  (all _.and
       (..variant runner)
       (..tuple runner)
       ))