From 4d6be458a00a642555e95055ff640daba59513f7 Mon Sep 17 00:00:00 2001
From: metagn <metagngn@gmail.com>
Date: Wed, 24 May 2023 18:55:09 +0300
Subject: js -r defines nodejs & program result undeclared if unavailable
 (#21849)

* js -r defines nodejs & program result undefined if unavailable

fixes #16985, fixes #16074

* fix

* add changelog too

* minor word change
---
 lib/pure/unittest.nim | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'lib/pure')

diff --git a/lib/pure/unittest.nim b/lib/pure/unittest.nim
index 9dafa8f03..964fba0e4 100644
--- a/lib/pure/unittest.nim
+++ b/lib/pure/unittest.nim
@@ -519,6 +519,12 @@ proc exceptionTypeName(e: ref Exception): string {.inline.} =
   if e == nil: "<foreign exception>"
   else: $e.name
 
+when not declared(setProgramResult):
+  {.warning: "setProgramResult not available on platform, unittest will not" &
+    " give failing exit code on test failure".}
+  template setProgramResult(a: int) =
+    discard
+
 template test*(name, body) {.dirty.} =
   ## Define a single test case identified by `name`.
   ##
-- 
cgit 1.4.1-2-gfad0