conjur-asset-ui 1.3.2 → 1.4.2

data/vendor/prelude-ls/test/Num.ls

@@ -1,258 +0,0 @@
-{
-  max, min, negate, abs, signum, quot, rem, div, mod, recip,
-  pi, tau, exp, sqrt, ln, pow, sin, tan, cos, acos, asin, atan, atan2,
-  truncate, round, ceiling, floor, is-it-NaN, even, odd, gcd, lcm,
-} = require '..'
-{equal: eq, deep-equal: deep-eq, ok} = require 'assert'
-
-suite 'max' ->
-  test 'numbers' ->
-    eq 3, max 3 3
-    eq 3, max 2 3
-    eq 3, max 3 2
-
-  test 'characters' ->
-    eq \b, max \a \b
-
-  test 'curried' ->
-    f = max 2
-    eq 3, f 3
-
-suite 'min' ->
-  test 'numbers' ->
-    eq 0, min 9 0
-
-  test 'characters' ->
-    eq \a, min \a \b
-
-  test 'curried' ->
-    f = min 9
-    eq 0, f 0
-
-suite 'negate' ->
-  test 'zero' ->
-    eq 0, negate 0
-
-  test 'negative number' ->
-    eq -2, negate 2
-
-  test 'positive number' ->
-    eq 3, negate -3
-
-suite 'abs' ->
-  test 'zero' ->
-    eq 0, abs 0
-
-  test 'negative number' ->
-    eq 4 abs -4
-
-  test 'positive number' ->
-    eq 4 abs  4
-
-suite 'signum' ->
-  test 'zero' ->
-    eq 0  signum 0
-
-  test 'negative number' ->
-    eq -1 signum -5.3
-
-  test 'positive number' ->
-    eq 1  signum 8
-
-suite 'quot' ->
-  test 'simple' ->
-    eq -6, quot -20 3
-
-  test 'curried' ->
-    f = quot -20
-    eq -6, f 3
-
-suite 'rem' ->
-  test 'simple' ->
-    eq -2, rem -20 3
-
-  test 'curried' ->
-    f = rem -20
-    eq -2, f 3
-
-suite 'div' ->
-  test 'simple' ->
-    eq -7, div -20 3
-
-  test 'curried' ->
-    f = div -20
-    eq -7, f 3
-
-suite 'mod' ->
-  test 'simple' ->
-    eq 1, mod -20 3
-
-  test 'curried' ->
-    f = mod -20
-    eq 1, f 3
-
-suite 'recip' ->
-  test 'zero' ->
-    eq Infinity, recip 0
-
-  test 'larger than 1' ->
-    eq 0.5, recip 2
-
-  test 'between 0 and 1' ->
-    eq 2, recip 0.5
-
-suite 'pi' ->
-  test 'constant' ->
-    eq 3.141592653589793, pi
-
-suite 'tau' ->
-  test 'constant' ->
-    eq 6.283185307179586, tau
-
-suite 'exp' ->
-  test 'simple' ->
-    eq 2.718281828459045, exp 1
-
-suite 'sqrt' ->
-  test 'negative numbers' ->
-    ok is-it-NaN sqrt -1
-
-  test 'simple' ->
-    eq 2 sqrt 4
-
-suite 'ln' ->
-  test 'simple' ->
-    eq 0.6931471805599453, ln 2
-
-suite 'pow' ->
-  test 'simple' ->
-    eq 4, pow 2 2
-    eq 4, pow -2 2
-
-  test 'with negative numbers' ->
-    eq 0.25, pow 2 -2
-
-  test 'between one and zero' ->
-    eq 4, pow 16 0.5
-
-  test 'curried' ->
-    f = pow 2
-    eq 4, f 2
-
-suite 'sin' ->
-  test 'zero' ->
-    eq 0, sin 0
-
-  test 'one' ->
-    eq 0.8414709848078965, sin 1
-
-suite 'tan' ->
-  test 'zero' ->
-    eq 0, tan 0
-
-  test 'one' ->
-    eq 1.5574077246549023, tan 1
-
-suite 'cos' ->
-  test 'zero' ->
-    eq 1, cos 0
-
-  test 'one' ->
-    eq 0.5403023058681398, cos 1
-
-suite 'acos' ->
-  test 'number' ->
-    eq 1.4706289056333368, acos 0.1
-
-suite 'asin' ->
-  test 'number' ->
-    eq 1.5707963267948966, asin 1
-
-suite 'atan' ->
-  test 'number' ->
-    eq 0.7853981633974483, atan 1
-
-suite 'atan2' ->
-  test 'number' ->
-    eq 0.4636476090008061, atan2 1 2
-
-  test 'curried' ->
-    f = atan2 1
-    eq 0.4636476090008061, f 2
-
-suite 'truncate' ->
-  test 'zero' ->
-    eq 0, truncate 0
-
-  test 'positive number' ->
-    eq  1 truncate  1.5
-
-  test 'negative number' ->
-    eq -1 truncate -1.5
-
-suite 'round' ->
-  test 'up' ->
-    eq 1 round 0.6
-    eq 1 round 0.5
-
-  test 'down' ->
-    eq 0 round 0.4
-
-suite 'ceiling' ->
-  test 'zero' ->
-    eq 0, ceiling 0
-
-  test 'positive number' ->
-    eq 1, ceiling 0.1
-
-  test 'negative number' ->
-    eq 0, ceiling -0.9
-
-suite 'floor' ->
-  test 'zero' ->
-    eq 0, floor 0
-
-  test 'positive number' ->
-    eq 0, floor 0.9
-
-  test 'negative number' ->
-    eq -1, floor -0.1
-
-suite 'is-it-NaN' ->
-  test 'true' ->
-    ok is-it-NaN Math.sqrt -1
-
-  test 'false' ->
-    ok not is-it-NaN '0'
-
-suite 'even' ->
-  test 'true' ->
-    ok even 0
-    ok even -2
-
-  test 'false' ->
-    ok not even 7
-
-suite 'odd' ->
-  test 'true' ->
-    ok odd 3
-
-  test 'false' ->
-    ok not odd -4
-    ok not odd 0
-
-suite 'gcd' ->
-  test 'some numbers' ->
-    eq 6, gcd 12 18
-
-  test 'curried' ->
-    f = gcd 12
-    eq 6, f 18
-
-suite 'lcm' ->
-  test 'some numbers' ->
-    eq 36, lcm 12 18
-
-  test 'curried' ->
-    f = lcm 12
-    eq 36, f 18

data/vendor/prelude-ls/test/Obj.ls

@@ -1,145 +0,0 @@
-{
-  id
-  Obj: {
-    values, keys,
-    pairs-to-obj, obj-to-pairs, lists-to-obj, obj-to-lists,
-    empty, each, map, filter, compact, reject, partition, find,
-  }
-} = require '..'
-{equal: eq, deep-equal: deep-eq, ok} = require 'assert'
-
-suite 'values' ->
-  test 'empty object as input' ->
-    deep-eq [], values {}
-
-  test 'object as input' ->
-    deep-eq [1 2 3], values sadf: 1, asdf: 2, fdas: 3
-
-suite 'keys' ->
-  test 'empty object as input' ->
-    deep-eq [], keys {}
-
-  test 'object as input' ->
-    deep-eq <[ sadf asdf fdas ]>, keys sadf: 1, asdf: 2, fdas: 3
-
-suite 'pairs-to-obj' ->
-  test 'empty list as input' ->
-    deep-eq {}, pairs-to-obj []
-
-  test 'pairs as input' ->
-    deep-eq {a: 'b', c: 'd', e: 1}, pairs-to-obj [['a' 'b'] ['c' 'd'] ['e' 1]]
-
-suite 'obj-to-pairs' ->
-  test 'empty object as input' ->
-    deep-eq [], obj-to-pairs {}
-
-  test 'object as input' ->
-    deep-eq [['a' 'b'] ['c' 'd'] ['e' 1]], obj-to-pairs {a: 'b', c: 'd', e: 1}
-
-suite 'lists-to-obj' ->
-  test 'empty lists as input' ->
-    deep-eq {}, lists-to-obj [] []
-
-  test 'two lists of the same length' ->
-    deep-eq  {a: 1, b: 2, c: 3}, lists-to-obj <[ a b c ]> [1 2 3]
-
-  test 'first list is shorter' ->
-    deep-eq  {a: 1, b: 2}, lists-to-obj <[ a b ]> [1 2 3]
-
-  test 'first list is longer' ->
-    deep-eq  {a: 1, b: 2, c: void}, lists-to-obj <[ a b c ]> [1 2]
-
-  test 'curried' ->
-    f = lists-to-obj <[ a b c ]>
-    deep-eq  {a: 1, b: 2, c: 3}, f [1 2 3]
-
-suite 'obj-to-lists' ->
-  test 'empty object as input' ->
-    deep-eq [[], []], obj-to-lists {}
-
-  test 'two lists of the same length' ->
-    deep-eq [<[ a b c ]>, [1 2 3]], obj-to-lists {a: 1, b: 2, c: 3}
-
-suite 'empty' ->
-  test 'empty object as input' ->
-    ok empty {}
-
-  test 'non-empty object as input' ->
-    ok not empty {x: 1}
-
-suite 'each' ->
-  test 'empty object as input' ->
-    deep-eq {}, each id, {}
-
-  test 'iterate over object values' ->
-    count = 4
-    each (-> count += it), {a: 1, b: 2, c: 3}
-    eq 10 count
-
-  test 'curried' ->
-    count = 4
-    f = each (-> count += it)
-    f {a: 1, b: 2, c: 3}
-    eq 10 count
-
-suite 'map' ->
-  test 'empty object as input' ->
-    deep-eq {}, map id, {}
-
-  test 'mapping over object' ->
-    deep-eq {a:2, b:4}, map (* 2), {a:1, b:2}
-
-  test 'curried' ->
-    f = map (* 2)
-    deep-eq {a:2, b:4}, f {a:1, b:2}
-
-suite 'compact' ->
-  test 'empty object as input' ->
-    deep-eq {}, compact {}
-
-  test 'compacting object' ->
-    deep-eq {b: 1, e: 'ha'}, compact {a: 0, b: 1, c: false, d: '', e: 'ha'}
-
-suite 'filter' ->
-  test 'empty object as input' ->
-    deep-eq {}, filter id, {}
-
-  test 'filtering object' ->
-    deep-eq {b: 2}, filter (== 2), {a:1, b:2}
-
-  test 'curried' ->
-    f = filter (== 2)
-    deep-eq {b: 2}, f {a:1, b:2}
-
-suite 'reject' ->
-  test 'empty object as input' ->
-    deep-eq {}, reject id, {}
-
-  test 'reject object' ->
-    deep-eq {a: 1}, reject (==2), {a:1, b:2}
-
-  test 'curried' ->
-    f = reject (== 2)
-    deep-eq {a: 1}, f {a:1, b:2}
-
-suite 'partition' ->
-  test 'empty object as input' ->
-    deep-eq [{}, {}], partition id, {}
-
-  test 'partition object' ->
-    deep-eq [{b: 2}, {a: 1, c: 3}], partition (==2), {a:1, b:2, c:3}
-
-  test 'curried' ->
-    f = partition (== 2)
-    deep-eq [{b: 2}, {a: 1, c: 3}], f {a:1, b:2, c:3}
-
-suite 'find' ->
-  test 'empty object as input' ->
-    eq void, find id, {}
-
-  test 'find from object' ->
-    eq 2, find (==2), {a:1, b:2}
-
-  test 'curried' ->
-    f = find (== 2)
-    eq 2, f {a:1, b:2}

data/vendor/prelude-ls/test/Prelude.ls

@@ -1,49 +0,0 @@
-{id, is-type, replicate} = require '..'
-{equal: eq, deep-equal: deep-eq, ok} = require 'assert'
-
-suite 'id' ->
-  test 'number' ->
-    eq 5, id 5
-
-  test 'object is the same' ->
-    obj = {}
-    eq obj, id obj
-
-suite 'is-type' ->
-  test 'literals' ->
-    ok is-type 'Undefined' void
-    ok is-type 'Boolean' true
-    ok is-type 'Number' 1
-    ok is-type 'Number' 1.2
-    ok is-type 'String' 'asdfa'
-    ok is-type 'Object' {}
-    ok is-type 'Array' []
-
-    ok not is-type 'Boolean' 1
-
-  test 'constructors' ->
-    ok is-type 'Date' new Date
-
-  test 'classes' ->
-    class A
-
-    ok is-type 'Object' new A
-
-  test 'curried' ->
-    f = is-type 'Boolean'
-    ok f true
-
-suite 'replicate' ->
-  test 'zero as input' ->
-    deep-eq [], replicate 0 0
-    deep-eq [], replicate 0 'a'
-
-  test 'number as input' ->
-    deep-eq [3,3,3,3], replicate 4 3
-
-  test 'string as input' ->
-    deep-eq <[ a a a a ]>, replicate 4 'a'
-
-  test 'curried' ->
-    f = replicate 4
-    deep-eq [3,3,3,3], f 3