author | Mathieu Lacage <mathieu.lacage@sophia.inria.fr> |
Tue, 06 Nov 2007 16:16:18 +0100 | |
changeset 2084 | 24cfc21bda99 |
parent 1946 | 2c9d055f4692 |
child 5292 | 2036a35923bd |
permissions | -rw-r--r-- |
1944
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
1 |
/* -*- Mode:C++; c-file-style:"gnu"; indent-tabs-mode:nil; -*- */ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
2 |
/* |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
3 |
* Copyright (c) 2007 INRIA |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
4 |
* |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
5 |
* This program is free software; you can redistribute it and/or modify |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
6 |
* it under the terms of the GNU General Public License version 2 as |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
7 |
* published by the Free Software Foundation; |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
8 |
* |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
9 |
* This program is distributed in the hope that it will be useful, |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
12 |
* GNU General Public License for more details. |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
13 |
* |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
14 |
* You should have received a copy of the GNU General Public License |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
15 |
* along with this program; if not, write to the Free Software |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
16 |
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
17 |
* |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
18 |
* Author: Mathieu Lacage <mathieu.lacage@sophia.inria.fr> |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
19 |
*/ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
20 |
#include "watchdog.h" |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
21 |
|
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
22 |
namespace ns3 { |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
23 |
|
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
24 |
Watchdog::Watchdog () |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
25 |
: m_impl (0), |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
26 |
m_event (), |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
27 |
m_end (MicroSeconds (0)) |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
28 |
{} |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
29 |
|
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
30 |
Watchdog::~Watchdog () |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
31 |
{ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
32 |
delete m_impl; |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
33 |
} |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
34 |
|
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
35 |
void |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
36 |
Watchdog::Ping (Time delay) |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
37 |
{ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
38 |
Time end = Simulator::Now () + delay; |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
39 |
m_end = std::max (m_end, end); |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
40 |
if (m_event.IsRunning ()) |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
41 |
{ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
42 |
return; |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
43 |
} |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
44 |
m_event = Simulator::Schedule (m_end - Now (), &Watchdog::Expire, this); |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
45 |
} |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
46 |
|
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
47 |
void |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
48 |
Watchdog::Expire (void) |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
49 |
{ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
50 |
if (m_end == Simulator::Now ()) |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
51 |
{ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
52 |
m_impl->Invoke (); |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
53 |
} |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
54 |
else |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
55 |
{ |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
56 |
m_event = Simulator::Schedule (m_end - Now (), &Watchdog::Expire, this); |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
57 |
} |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
58 |
} |
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
59 |
|
7044c1ad1d79
a Watchdog class
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
diff
changeset
|
60 |
} // namespace ns3 |
1946
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
61 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
62 |
#ifdef RUN_SELF_TESTS |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
63 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
64 |
#include "ns3/test.h" |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
65 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
66 |
namespace ns3 { |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
67 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
68 |
class WatchdogTests : public Test |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
69 |
{ |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
70 |
public: |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
71 |
WatchdogTests (); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
72 |
virtual bool RunTests (void); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
73 |
private: |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
74 |
void Expire (Time expected); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
75 |
bool m_error; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
76 |
}; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
77 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
78 |
WatchdogTests::WatchdogTests () |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
79 |
: Test ("Watchdog") |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
80 |
{} |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
81 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
82 |
void |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
83 |
WatchdogTests::Expire (Time expected) |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
84 |
{ |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
85 |
bool result = true; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
86 |
NS_TEST_ASSERT_EQUAL (Simulator::Now (), expected); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
87 |
m_error = !result; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
88 |
} |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
89 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
90 |
bool |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
91 |
WatchdogTests::RunTests (void) |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
92 |
{ |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
93 |
bool result = true; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
94 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
95 |
m_error = false; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
96 |
Watchdog watchdog; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
97 |
watchdog.SetFunction (&WatchdogTests::Expire, this); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
98 |
watchdog.SetArguments (MicroSeconds (40)); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
99 |
watchdog.Ping (MicroSeconds (10)); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
100 |
Simulator::Schedule (MicroSeconds (5), &Watchdog::Ping, &watchdog, MicroSeconds (20)); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
101 |
Simulator::Schedule (MicroSeconds (20), &Watchdog::Ping, &watchdog, MicroSeconds (2)); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
102 |
Simulator::Schedule (MicroSeconds (23), &Watchdog::Ping, &watchdog, MicroSeconds (17)); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
103 |
Simulator::Run (); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
104 |
NS_TEST_ASSERT (!m_error); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
105 |
Simulator::Destroy (); |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
106 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
107 |
return result; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
108 |
} |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
109 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
110 |
static WatchdogTests g_watchdogTests; |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
111 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
112 |
} // namespace ns3 |
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
113 |
|
2c9d055f4692
test the watchdog
Mathieu Lacage <mathieu.lacage@sophia.inria.fr>
parents:
1944
diff
changeset
|
114 |
#endif /* RUN_SELF_TESTS */ |