extra/lint/vocabs/vocabs-tests.factor

   1 ! Copyright (C) 2022 CapitalEx
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors arrays assocs compiler.units continuations
   4 formatting hash-sets hashtables io io.encodings.utf8 io.files
   5 kernel namespaces regexp sequences sequences.deep sets sorting
   6 splitting tools.test unicode vocabs vocabs.loader ;
   7 IN: lint.vocabs
   8
   9 <PRIVATE
  10 CONSTANT: mock-file "
  11 USING: arrays io kernel math math.parser sets
  12 hashtables sequences vocabs ;
  13 IN: lint.vocabs.testing
  14
  15 : test-one ( x y -- )
  16     + print ;
  17
  18 : test-two ( x -- x )
  19     dup 2array ;
  20
  21 : test-three ( -- x )
  22     HS{ } clone ;
  23
  24 : test-four ( x -- x )
  25     >bin ;
  26
  27 USE: math.complex
  28 : test-five ( x -- ? )
  29     malformed-complex? ;
  30
  31 USE: math.primes
  32 "
  33 CONSTANT: ignore-postpone-using     "POSTPONE: USING: : nop ( -- ) ;"
  34 CONSTANT: ingore-\-using            "\\ USING: : nop ( -- ) ;"
  35 CONSTANT: ignore-postpone-use       "POSTPONE: USE: ignore : nop ( -- ) ;"
  36 CONSTANT: ignore-\-use              "\\ USE: ignore : nop ( -- ) ;"
  37 CONSTANT: ignore-in-string-one      "\"USE:\" \"USING:\" : nop ( -- ) ;"
  38 CONSTANT: ignore-in-string-two      "\"asdfasdf USE:\" \"asdfasdf USING:\" : nop ( -- ) ;"
  39 CONSTANT: ignore-in-string-three    "\"asdfasdf USE: asdfasdf\" : nop ( -- ) ;"
  40 CONSTANT: ignore-in-string-four     "\"asdfasdf USE: asdfasdf\" \"asdfasff USING: asdfasdf\" : nop ( -- ) ;"
  41 CONSTANT: ignore-string-with-quote  "\"\\\"USE:\" : nop ( -- ) ;"
  42 CONSTANT: ignore-use-regex          "R/ USE: ignore/ : nop ( -- ) ;"
  43 CONSTANT: ignore-using-regex        "R/ USING: ignore ;/ : nop ( -- ) ;"
  44 CONSTANT: ignore-char-backslash     "CHAR: \\ USING: math.functions ;"
  45 CONSTANT: empty-using-statement     "USING: ; nop ( -- ) ;"
  46 : ---- ( -- ) "-------------------------------------------------------------------------" print ;
  47 PRIVATE>
  48
  49 "It should work on multiple lines, with multiple imports across the file: " print
  50
  51 { { "hashtables" "math.primes" "sequences" "sets" "vocabs" } } [ mock-file find-unused-in-string ] unit-test
  52
  53 ----
  54
  55 "It should ignore USE: and USING: that have been postponed: " print
  56 { { } } [ ignore-postpone-using find-unused-in-string ] unit-test
  57 { { } } [ ingore-\-using        find-unused-in-string ] unit-test
  58 { { } } [ ignore-postpone-use   find-unused-in-string ] unit-test
  59 { { } } [ ignore-\-use          find-unused-in-string ] unit-test
  60
  61 ----
  62
  63 "It should ignore USE: and USING: that are in strings: " print
  64 { { } } [ ignore-in-string-one     find-unused-in-string ] unit-test
  65 { { } } [ ignore-in-string-two     find-unused-in-string ] unit-test
  66 { { } } [ ignore-in-string-three   find-unused-in-string ] unit-test
  67 { { } } [ ignore-in-string-four    find-unused-in-string ] unit-test
  68 { { } } [ ignore-string-with-quote find-unused-in-string ] unit-test
  69
  70 ----
  71
  72 "It should ignore CHAR: \\: " print
  73 { { "math.functions" } } [ ignore-char-backslash find-unused-in-string ] unit-test
  74
  75 ----
  76
  77 "It should ignore USE: and USING: that are in RegEx: " print
  78 { { } } [ ignore-use-regex   find-unused-in-string ] unit-test
  79 { { } } [ ignore-using-regex find-unused-in-string ] unit-test
  80
  81 ----
  82
  83 "It should return empty when no imports have been found: " print
  84 { { } } [ empty-using-statement find-unused-in-string ] unit-test
  85
  86 ----
  87
  88 "It should forget vocabs that aren't already loaded: " print
  89 dictionary get clone 1array [
  90     "USE: bitcoin.client" find-unused-in-string drop
  91     dictionary get clone
  92 ] unit-test
  93
  94 ----