FilesExpand file tree

 main

/

test.lua

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

107 lines (86 loc) · 2.75 KB

 main

/

test.lua

Top

File metadata and controls

• Code
• Blame

107 lines (86 loc) · 2.75 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

local https = require "https"

local json

-- Helper

local function hexencode(c)

return string.format("%%%02x", string.byte(c))

end

local function escape(s)

return (string.gsub(s, "([^A-Za-z0-9_])", hexencode))

end

local function urlencode(list)

local result = {}

for k, v in pairs(list) do

result[#result + 1] = escape(k).."="..escape(v)

end

return table.concat(result, "&")

end

local function checkcode(code, expected)

if code ~= expected then

error("expected code "..expected..", got "..tostring(code))

end

end

math.randomseed(os.time())

-- Tests function

local function test_download_json()

local code, response = https.request("https://raw.githubusercontent.com/rxi/json.lua/master/json.lua")

checkcode(code, 200)

json = assert(loadstring(response, "=json.lua"))()

end

local function test_head()

local code, response = https.request("https://postman-echo.com/get", {method = "HEAD"})

assert(code == 200, "expected code 200, got "..code)

assert(#response == 0, "expected empty response")

end

local function test_custom_header()

local headerName = "RandomNumber"

local random = math.random(1, 1000)

local code, response = https.request("https://postman-echo.com/get", {

headers = {

[headerName] = tostring(random)

}

})

checkcode(code, 200)

local root = json.decode(response)

-- Headers are case-insensitive

local found = false

for k, v in pairs(root.headers) do

if k:lower() == headerName:lower() then

assert(tonumber(v) == random, "random number does not match, expected "..random..", got "..v)

found = true

end

end

assert(found, "custom header RandomNumber not found")

end

local function test_send(method, kind)

local data = {Foo = "Bar", Key = "Value"}

local input, contentType

if kind == "json" then

input = json.encode

contentType = "application/json"

else

input = urlencode

contentType = "application/x-www-form-urlencoded"

end

local code, response = https.request("https://postman-echo.com/"..method:lower(), {

headers = {["Content-Type"] = contentType},

data = input(data),

method = method

})

checkcode(code, 200)

local root = json.decode(response)

for k, v in pairs(data) do

local v0 = assert(root[kind][k], "Missing key "..k.." for "..kind)

assert(v0 == v, "Key "..k.." value mismatch, expected '"..v.."' got '"..v0.."'")

end

end

-- Tests call

print("test downloading json library") test_download_json()

print("test custom header") test_custom_header()

print("test HEAD") test_head()

for _, method in ipairs({"POST", "PUT", "PATCH", "DELETE"}) do

for _, kind in ipairs({"form", "json"}) do

print("test "..method.." with data send as "..kind)

test_send(method, kind)

end

end

print("Test successful!")