.upptst

git-svn-id: svn://ultimatepp.org/upp/trunk@6787 f0d560ea-af0d-0410-9eb7-867de7ffcac7

upptst/NaNINF/NaNINF.upp

@@ -0,0 +1,9 @@
+uses
+	Core;
+
+file
+	NaNInf.cpp;
+
+mainconfig
+	"" = "SSE2";
+

upptst/NaNINF/NaNInf.cpp

@@ -0,0 +1,25 @@
+#include <Core/Core.h>
+
+using namespace Upp;
+
+CONSOLE_APP_MAIN
+{
+	double d = 0;
+	ASSERT(!IsNaN(d));
+	ASSERT(!IsInf(d));
+	ASSERT(IsFin(d));
+	
+	d = sqrt(-1.0);
+	ASSERT(IsNaN(d));
+	ASSERT(!IsInf(d));
+
+	d = 1e300;
+	d *= d;
+	ASSERT(!IsNaN(d));
+	ASSERT(IsInf(d));
+
+	d = 1e300;
+	d *= -d;
+	ASSERT(!IsNaN(d));
+	ASSERT(IsInf(d));
+}

upptst/NaNINF/init

@@ -0,0 +1,4 @@
+#ifndef _NaNInf_icpp_init_stub
+#define _NaNInf_icpp_init_stub
+#include "Core/init"
+#endif