From f777c69fe9ce0331bac65d7cf207fe6e6e32b6d3 Mon Sep 17 00:00:00 2001 From: Daniel Marcoto Date: Fri, 3 Oct 2014 08:41:00 -0300 Subject: [PATCH 1/2] Running aspunit from a IIS in Portuguese-BR version makes boolean values to be translated. It causes a parses error by showing the results. --- Example/Default.asp | 4 ++-- Lib/Classes/ASPUnitJSONResponder.asp | 6 ++++-- 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/Example/Default.asp b/Example/Default.asp index 16d4b2f..6e268e4 100644 --- a/Example/Default.asp +++ b/Example/Default.asp @@ -5,8 +5,8 @@ <% ' Register pages to test - Call ASPUnit.AddPage("/Example/TestAccount.asp") - Call ASPUnit.AddPage("/Example/TestAccountTransferService.asp") + Call ASPUnit.AddPage("TestAccount.asp") + Call ASPUnit.AddPage("TestAccountTransferService.asp") ' Execute tests Call ASPUnit.Run() diff --git a/Lib/Classes/ASPUnitJSONResponder.asp b/Lib/Classes/ASPUnitJSONResponder.asp index f95c685..df1d1cb 100644 --- a/Lib/Classes/ASPUnitJSONResponder.asp +++ b/Lib/Classes/ASPUnitJSONResponder.asp @@ -98,11 +98,13 @@ End Function Private Function JSONNumberPair(strName, varValue) - JSONNumberPair = JSONString(strName) & ":" & varValue + JSONNumberPair = JSONString(strName) & ":" & (FormatNumber(varValue, 0, -1, -1, -1)) End Function Private Function JSONBooleanPair(strName, blnValue) - JSONBooleanPair = JSONString(strName) & ":" & LCase(blnValue) + Dim output : output = "true" + If Not blnValue Then output = "false" + JSONBooleanPair = JSONString(strName) & ":" & output End Function Private Function JSONStringEscape(strValue) From 2cbd3f69e5503aac60b8a84aa1f710f7dda92e8d Mon Sep 17 00:00:00 2001 From: Daniel Marcoto Date: Fri, 3 Oct 2014 08:55:28 -0300 Subject: [PATCH 2/2] Path of Default.asp in Example folder --- Example/Default.asp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Example/Default.asp b/Example/Default.asp index 6e268e4..16d4b2f 100644 --- a/Example/Default.asp +++ b/Example/Default.asp @@ -5,8 +5,8 @@ <% ' Register pages to test - Call ASPUnit.AddPage("TestAccount.asp") - Call ASPUnit.AddPage("TestAccountTransferService.asp") + Call ASPUnit.AddPage("/Example/TestAccount.asp") + Call ASPUnit.AddPage("/Example/TestAccountTransferService.asp") ' Execute tests Call ASPUnit.Run()