Keith Ruenheck / MTS-Socket

increased chunk size

Dependencies:   HTTPClient-SSL

Fork of MTS-Socket by MultiTech

Test/TestHTTP.h@35:c85bea9cb713, 2015-03-11 (annotated)

Committer:
Vanger
Date:
Wed Mar 11 17:27:16 2015 +0000
Revision:
35:c85bea9cb713
Parent:
16:dbe80ac199f5 
Added HTTPS unit test.; Removed APN declarations, as there is only one static APN declaration now (consolidated the APN's to the same location for all tests)

Who changed what in which revision?

UserRevisionLine numberNew contents of line
mfiore 7:08b474178245 1 #ifndef TESTHTTP_H
mfiore 7:08b474178245 2 #define TESTHTTP_H
mfiore 7:08b474178245 3
mfiore 7:08b474178245 4 #include "mtsas.h"
mfiore 7:08b474178245 5 #include <string>
mfiore 7:08b474178245 6
mfiore 7:08b474178245 7 using namespace mts;
mfiore 7:08b474178245 8
mfiore 7:08b474178245 9 class TestHTTP : public TestCollection
mfiore 7:08b474178245 10 {
mfiore 7:08b474178245 11 public:
mfiore 7:08b474178245 12 TestHTTP();
mfiore 7:08b474178245 13 virtual void run();
mfiore 7:08b474178245 14
mfiore 7:08b474178245 15 private:
mfiore 7:08b474178245 16 MTSSerialFlowControl* io;
mfiore 7:08b474178245 17 Cellular* radio;
mfiore 7:08b474178245 18 HTTPClient* http;
mfiore 7:08b474178245 19 char rbuf[1024];
mfiore 8:a3b41ec82e63 20 HTTPMap* send;
mfiore 7:08b474178245 21 HTTPText* receive;
mfiore 7:08b474178245 22 };
mfiore 7:08b474178245 23
mfiore 7:08b474178245 24 TestHTTP::TestHTTP() : TestCollection("TestHTTP") {}
mfiore 7:08b474178245 25
mfiore 7:08b474178245 26 void TestHTTP::run() {
mfiore 10:42220b7df921 27
mfiore 7:08b474178245 28 string url;
mfiore 7:08b474178245 29 string base_url = "http://httpbin.org:80";
mfiore 7:08b474178245 30 string url_get = "/get";
mfiore 7:08b474178245 31 string url_put = "/put";
mfiore 7:08b474178245 32 string url_post = "/post";
mfiore 7:08b474178245 33 string url_del = "/delete";
mfiore 8:a3b41ec82e63 34 string url_stream = "/stream/20";
mfiore 7:08b474178245 35
mfiore 7:08b474178245 36 MTSLog::setLogLevel(MTSLog::TRACE_LEVEL);
mfiore 7:08b474178245 37
mfiore 7:08b474178245 38 Test::start("Setup");
mfiore 8:a3b41ec82e63 39 io = new MTSSerialFlowControl(D8, D2, D3, D6);
mfiore 7:08b474178245 40 io->baud(115200);
mfiore 7:08b474178245 41 radio = CellularFactory::create(io);
mfiore 7:08b474178245 42 if (! radio) {
mfiore 7:08b474178245 43 Test::assertTrue(false);
mfiore 7:08b474178245 44 }
mfiore 8:a3b41ec82e63 45 radio->configureSignals(D4, D7, RESET);
mfiore 7:08b474178245 46 Transport::setTransport(radio);
mfiore 7:08b474178245 47
mfiore 7:08b474178245 48 http = new HTTPClient();
mfiore 8:a3b41ec82e63 49 send = new HTTPMap();
mfiore 7:08b474178245 50 receive = new HTTPText(rbuf);
mfiore 7:08b474178245 51
mfiore 7:08b474178245 52 for (int i = 0; i < 10; i++) {
mfiore 7:08b474178245 53 if (i >= 10) {
mfiore 7:08b474178245 54 Test::assertTrue(false);
mfiore 7:08b474178245 55 }
mfiore 12:9efe3cc3cb6c 56 if (radio->setApn(APN) == MTS_SUCCESS) {
mfiore 7:08b474178245 57 break;
mfiore 7:08b474178245 58 } else {
mfiore 7:08b474178245 59 wait(1);
mfiore 7:08b474178245 60 }
mfiore 7:08b474178245 61 }
mfiore 7:08b474178245 62 for (int i = 0; i < 3; i++) {
mfiore 7:08b474178245 63 if (i >= 3) {
mfiore 7:08b474178245 64 Test::assertTrue(false);
mfiore 7:08b474178245 65 }
mfiore 7:08b474178245 66 if (radio->connect()) {
mfiore 7:08b474178245 67 break;
mfiore 7:08b474178245 68 } else {
mfiore 7:08b474178245 69 wait(1);
mfiore 7:08b474178245 70 }
mfiore 7:08b474178245 71 }
mfiore 7:08b474178245 72
mfiore 7:08b474178245 73 for (int i = 0; i < 5; i++) {
mfiore 7:08b474178245 74 if (i >= 5) {
mfiore 7:08b474178245 75 Test::assertTrue(false);
mfiore 7:08b474178245 76 }
mfiore 7:08b474178245 77 if (radio->ping()) {
mfiore 7:08b474178245 78 break;
mfiore 7:08b474178245 79 } else {
mfiore 7:08b474178245 80 wait(1);
mfiore 7:08b474178245 81 }
mfiore 7:08b474178245 82 }
mfiore 7:08b474178245 83 Test::end();
mfiore 7:08b474178245 84
mfiore 7:08b474178245 85 url = base_url + url_get;
mfiore 7:08b474178245 86 Test::start("HTTP GET");
Vanger 16:dbe80ac199f5 87 Test::assertTrue(http->get(url.c_str(), receive, 10000) == HTTP_OK);
mfiore 7:08b474178245 88 Test::end();
mfiore 7:08b474178245 89
mfiore 7:08b474178245 90 url = base_url + url_put;
mfiore 7:08b474178245 91 Test::start("HTTP PUT");
mfiore 8:a3b41ec82e63 92 send->put("testing", "put");
Vanger 16:dbe80ac199f5 93 Test::assertTrue(http->put(url.c_str(), *send, receive, 10000) == HTTP_OK);
mfiore 7:08b474178245 94 Test::end();
mfiore 7:08b474178245 95
mfiore 7:08b474178245 96 url = base_url + url_post;
mfiore 7:08b474178245 97 Test::start("HTTP POST");
mfiore 8:a3b41ec82e63 98 send->put("testing", "put");
Vanger 16:dbe80ac199f5 99 Test::assertTrue(http->post(url.c_str(), *send, receive, 10000) == HTTP_OK);
mfiore 7:08b474178245 100 Test::end();
mfiore 7:08b474178245 101
mfiore 7:08b474178245 102 url = base_url + url_del;
mfiore 7:08b474178245 103 Test::start("HTTP DELETE");
Vanger 16:dbe80ac199f5 104 Test::assertTrue(http->del(url.c_str(), receive, 10000) == HTTP_OK);
mfiore 7:08b474178245 105 Test::end();
mfiore 7:08b474178245 106
mfiore 8:a3b41ec82e63 107 url = base_url + url_stream;
mfiore 8:a3b41ec82e63 108 char bigbuf[8 * 1024];
mfiore 8:a3b41ec82e63 109 HTTPText big(bigbuf);
mfiore 8:a3b41ec82e63 110 Test::start("HTTP big GET");
mfiore 8:a3b41ec82e63 111 Test::assertTrue(http->get(url.c_str(), &big, 5000) == HTTP_OK);
mfiore 8:a3b41ec82e63 112 Test::end();
mfiore 8:a3b41ec82e63 113
mfiore 7:08b474178245 114 radio->disconnect();
mfiore 7:08b474178245 115 }
mfiore 7:08b474178245 116
mfiore 7:08b474178245 117 #endif