/* Copyright 2021 Mozilla Foundation
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

// ./test/core/br_on_null.wast

// ./test/core/br_on_null.wast:1
let $0 = instantiate(`(module
  (type \$t (func (result i32)))

  (func \$nn (param \$r (ref \$t)) (result i32)
    (block \$l
      (return (call_ref \$t (br_on_null \$l (local.get \$r))))
    )
    (i32.const -1)
  )
  (func \$n (param \$r (ref null \$t)) (result i32)
    (block \$l
      (return (call_ref \$t (br_on_null \$l (local.get \$r))))
    )
    (i32.const -1)
  )

  (elem func \$f)
  (func \$f (result i32) (i32.const 7))

  (func (export "nullable-null") (result i32) (call \$n (ref.null \$t)))
  (func (export "nonnullable-f") (result i32) (call \$nn (ref.func \$f)))
  (func (export "nullable-f") (result i32) (call \$n (ref.func \$f)))

  (func (export "unreachable") (result i32)
    (block \$l
      (return (call_ref \$t (br_on_null \$l (unreachable))))
    )
    (i32.const -1)
  )
)`);

// ./test/core/br_on_null.wast:32
assert_trap(() => invoke($0, `unreachable`, []), `unreachable`);

// ./test/core/br_on_null.wast:34
assert_return(() => invoke($0, `nullable-null`, []), [value("i32", -1)]);

// ./test/core/br_on_null.wast:35
assert_return(() => invoke($0, `nonnullable-f`, []), [value("i32", 7)]);

// ./test/core/br_on_null.wast:36
assert_return(() => invoke($0, `nullable-f`, []), [value("i32", 7)]);

// ./test/core/br_on_null.wast:38
let $1 = instantiate(`(module
  (type \$t (func))
  (func (param \$r (ref null \$t)) (drop (br_on_null 0 (local.get \$r))))
  (func (param \$r (ref null func)) (drop (br_on_null 0 (local.get \$r))))
  (func (param \$r (ref null extern)) (drop (br_on_null 0 (local.get \$r))))
)`);

// ./test/core/br_on_null.wast:46
let $2 = instantiate(`(module
  (type \$t (func (param i32) (result i32)))
  (elem func \$f)
  (func \$f (param i32) (result i32) (i32.mul (local.get 0) (local.get 0)))

  (func \$a (param \$n i32) (param \$r (ref null \$t)) (result i32)
    (block \$l (result i32)
      (return (call_ref \$t (br_on_null \$l (local.get \$n) (local.get \$r))))
    )
  )

  (func (export "args-null") (param \$n i32) (result i32)
    (call \$a (local.get \$n) (ref.null \$t))
  )
  (func (export "args-f") (param \$n i32) (result i32)
    (call \$a (local.get \$n) (ref.func \$f))
  )
)`);

// ./test/core/br_on_null.wast:65
assert_return(() => invoke($2, `args-null`, [3]), [value("i32", 3)]);

// ./test/core/br_on_null.wast:66
assert_return(() => invoke($2, `args-f`, [3]), [value("i32", 9)]);

// ./test/core/br_on_null.wast:81
assert_invalid(
  () => instantiate(`(module
    (type \$t (func))
    (func \$f (param (ref null \$t)) (result funcref) (local.get 0))
    (func (param funcref) (result funcref)
      (ref.null \$t)
      (local.get 0)
      (br_on_null 0)  ;; only leaves two funcref's on the stack
      (drop)
      (call \$f)
    )
  )`),
  `type mismatch`,
);
