File: bool.liq

package info (click to toggle)
liquidsoap 2.4.2-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 12,844 kB
  • sloc: ml: 74,136; javascript: 27,320; ansic: 505; sh: 139; xml: 114; lisp: 96; makefile: 26
file content (28 lines) | stat: -rw-r--r-- 330 bytes parent folder | download | duplicates (2) 
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
 
def f() =
  # Test strictness and evaluation order
  l = ref(false)
  r = ref(false)
  if

      begin
        l := true
        true
      end

  or

      begin
        r := true
        true
      end

  then
    ()
  end

  test.equal(l() and (not r()), true)
  ignore(true == false ? 5 : 6 )
  test.pass()
end

test.check(f)