memory_leak.feature

Feature: Memory leak
  Background:
    Given an executable named "leak_memory.sh" with:
    """
    #!/bin/sh

    set -e

    cloe $1 > /dev/null &
    pid=$!

    sleep 2 # Wait for memory usage to be stable.

    ok=false
    last_mem=0

    for _ in $(seq 10)
    do
      mem=$(ps ho rss $pid)

      if [ $last_mem -ge $mem  ]
      then
        ok=true
        break
      fi

      last_mem=$mem
      sleep 1
    done

    kill $pid
    $ok
    """

  Scenario: Run infinite effects
    This test succeeds only with Go 1.8 onward because of argument liveness.
    Given a file named "main.cloe" with:
    """
    (def (f) [(print 42) ..(f)])
    ..(f)
    """
    When I run `sh leak_memory.sh main.cloe`
    Then the exit status should be 0

  Scenario: Evaluate deep recursion
    Given a file named "main.cloe" with:
    """
    (def (f n)
      (match n
        0 "OK!"
        _ (f (- n 1))))

    (print (f 100000000))
    """
    When I run `sh leak_memory.sh main.cloe`
    Then the exit status should be 0

  Scenario: Apply a map function to an infinite list
    Given a file named "main.cloe" with:
    """
    (def (f) [42 ..(f)])

    ..(map print (f))
    """
    When I run `sh leak_memory.sh main.cloe`
    Then the exit status should be 0

  Scenario: Apply a map function to an infinite list of map functions
    Given a file named "main.cloe" with:
    """
    (def (f) [map ..(f)])

    ..(map (\ (x) (print (typeOf x))) (f))
    """
    When I run `sh leak_memory.sh main.cloe`
    Then the exit status should be 0

  Scenario: Apply max function to an infinite list
    Given a file named "main.cloe" with:
    """
    (def (f) [42 ..(f)])

    (print (max ..(f)))
    """
    When I run `sh leak_memory.sh main.cloe`
    Then the exit status should be 0