search

bel28kent / hum-parser

Racket expressions for parsing humdrum files
0 stars 0 forks source link

failing tests for `spine-splits-right-joins-left` #22

Open bel28kent opened 2 weeks ago

bel28kent commented 2 weeks ago 
(check-expect (ab-hgraph->hfile
               (ab-hgraph (root (list (list (leaf (token "**kern" EXCLUSIVE-INTERPRETATION 0))
                                            (parent (token "*^" SPINE-SPLIT 1)
                                                    (list (leaf (token "*" NULL-INTERPRETATION 2))
                                                          (leaf (token "4c" SPINE-DATA 3))
                                                          (leaf (token "4c" SPINE-DATA 4))
                                                          (leaf (token "4c" SPINE-DATA 5))
                                                          (leaf (token "*v" SPINE-JOIN 6)))
                                                    (list (parent (token "*^" SPINE-SPLIT 2)
                                                                  (list (leaf (token "4c" SPINE-DATA 3))
                                                                        (leaf (token "4c" SPINE-DATA 4))
                                                                        (leaf (token "4c" SPINE-DATA 5))
                                                                        (leaf (token "*v" SPINE-JOIN 6)))
                                                                  (list (leaf (token "4c" SPINE-DATA 3))
                                                                        (leaf (token "4c" SPINE-DATA 4))
                                                                        (leaf (token "4c" SPINE-DATA 5))
                                                                        (leaf (token "*" NULL-INTERPRETATION 6))
                                                                        (leaf (token "*v" SPINE-JOIN 7))))
                                                          (leaf (token "*v" SPINE-JOIN 7))))
                                            (leaf (token "*-" SPINE-TERMINATOR 8)))))))
              (path->hfile "../../data/order/spine-splits-right-joins-left.krn"))
bel28kent commented 2 weeks ago 
(check-expect (ab-hgraph->lolot
               (ab-hgraph (root (list (list (leaf (token "**kern" EXCLUSIVE-INTERPRETATION 0))
                                            (parent (token "*^" SPINE-SPLIT 1)
                                                    (list (leaf (token "*" NULL-INTERPRETATION 2))
                                                          (leaf (token "4c" SPINE-DATA 3))
                                                          (leaf (token "4c" SPINE-DATA 4))
                                                          (leaf (token "4c" SPINE-DATA 5))
                                                          (leaf (token "*v" SPINE-JOIN 6)))
                                                    (list (parent (token "*^" SPINE-SPLIT 2)
                                                                  (list (leaf (token "4c" SPINE-DATA 3))
                                                                        (leaf (token "4c" SPINE-DATA 4))
                                                                        (leaf (token "4c" SPINE-DATA 5))
                                                                        (leaf (token "*v" SPINE-JOIN 6)))
                                                                  (list (leaf (token "4c" SPINE-DATA 3))
                                                                        (leaf (token "4c" SPINE-DATA 4))
                                                                        (leaf (token "4c" SPINE-DATA 5))
                                                                        (leaf (token "*" NULL-INTERPRETATION 6))
                                                                        (leaf (token "*v" SPINE-JOIN 7))))
                                                          (leaf (token "*v" SPINE-JOIN 7))))
                                            (leaf (token "*-" SPINE-TERMINATOR 8)))))))
              (list (list (token "**kern" EXCLUSIVE-INTERPRETATION 0))
                    (list (token "*^" SPINE-SPLIT 1))
                    (list (token "*" NULL-INTERPRETATION 2)
                          (token "*^" SPINE-SPLIT 2))
                    (list (token "4c" SPINE-DATA 3)
                          (token "4c" SPINE-DATA 3)
                          (token "4c" SPINE-DATA 3))
                    (list (token "4c" SPINE-DATA 4)
                          (token "4c" SPINE-DATA 4)
                          (token "4c" SPINE-DATA 4))
                    (list (token "4c" SPINE-DATA 5)
                          (token "4c" SPINE-DATA 5)
                          (token "4c" SPINE-DATA 5))
                    (list (token "*v" SPINE-JOIN 6)
                          (token "*v" SPINE-JOIN 6)
                          (token "*" NULL-INTERPRETATION 6))
                    (list (token "*v" SPINE-JOIN 7)
                          (token "*v" SPINE-JOIN 7))
                    (list (token "*-" SPINE-TERMINATOR 8))))
bel28kent commented 2 weeks ago 
(check-expect (hfile->ab-hgraph (path->hfile "../../data/order/spine-splits-right-joins-left.krn")
                                ab-hgraph)
              (ab-hgraph (root (list (list (leaf (token "**kern" EXCLUSIVE-INTERPRETATION 0))
                                           (parent (token "*^" SPINE-SPLIT 1)
                                                   (list (leaf (token "*" NULL-INTERPRETATION 2))
                                                         (leaf (token "4c" SPINE-DATA 3))
                                                         (leaf (token "4c" SPINE-DATA 4))
                                                         (leaf (token "4c" SPINE-DATA 5))
                                                         (leaf (token "*v" SPINE-JOIN 6)))
                                                   (list (parent (token "*^" SPINE-SPLIT 2)
                                                                 (list (leaf (token "4c" SPINE-DATA 3))
                                                                       (leaf (token "4c" SPINE-DATA 4))
                                                                       (leaf (token "4c" SPINE-DATA 5))
                                                                       (leaf (token "*v" SPINE-JOIN 6)))
                                                                 (list (leaf (token "4c" SPINE-DATA 3))
                                                                       (leaf (token "4c" SPINE-DATA 4))
                                                                       (leaf (token "4c" SPINE-DATA 5))
                                                                       (leaf (token "*" NULL-INTERPRETATION 6))
                                                                       (leaf (token "*v" SPINE-JOIN 7))))
                                                         (leaf (token "*v" SPINE-JOIN 7))))
                                           (leaf (token "*-" SPINE-TERMINATOR 8)))))))