From c376b4b89e7780a17d6e3f6eb1046763c7729622 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Thu, 9 Aug 2018 10:19:13 +0200
Subject: ssh: Test group for circular buffer tracing

---
 lib/ssh/test/ssh_dbg_SUITE.erl | 56 ++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 54 insertions(+), 2 deletions(-)

(limited to 'lib/ssh')

diff --git a/lib/ssh/test/ssh_dbg_SUITE.erl b/lib/ssh/test/ssh_dbg_SUITE.erl
index 33763dbf15..ab7918fa90 100644
--- a/lib/ssh/test/ssh_dbg_SUITE.erl
+++ b/lib/ssh/test/ssh_dbg_SUITE.erl
@@ -38,7 +38,8 @@ suite() ->
      {timetrap,{seconds,60}}].
 
 all() -> 
-    [{group, dbg}
+    [{group, dbg},
+     {group, circ_buf}
     ].
 
 groups() ->
@@ -46,7 +47,11 @@ groups() ->
                 dbg_alg_terminate,
                 dbg_ssh_messages,
                 dbg_connections,
-                dbg_channels]}
+                dbg_channels]},
+     {circ_buf, [], [cb_basic,
+                     cb_print,
+                     cb_macros_print
+                    ]}
     ].
 
 %%--------------------------------------------------------------------
@@ -345,6 +350,53 @@ dbg_channels(Config) ->
 
     stop_and_fail_if_unhandled_dbg_msgs(Ref, [C,D], Pid).
 
+%%--------------------------------------------------------------------
+cb_basic(_Config) ->
+    %% Check that the circular buffer is disabled at start:
+    [] = ssh_dbg:cbuf_list(),
+    disabled = ssh_dbg:cbuf_in(anything),
+    [] = ssh_dbg:cbuf_list(),
+    %% Start it and enter three values, first is duplicated;
+    ok = ssh_dbg:cbuf_start(3),
+    ok = ssh_dbg:cbuf_in(v1),
+    ok = ssh_dbg:cbuf_in(v1),
+    ok = ssh_dbg:cbuf_in(v2),
+    ok = ssh_dbg:cbuf_in(v3),
+    [{v3,_,1}, {v2,_,1}, {v1,_,2}] = ssh_dbg:cbuf_list(),
+    %% Check that a fourth value erase the first entered:
+    ok = ssh_dbg:cbuf_in(v4),
+    [{v4,_,1}, {v3,_,1}, {v2,_,1}] = ssh_dbg:cbuf_list(),
+    %% Check that entering a value that is in the tail but not in the head is treated as a new value:
+    ok = ssh_dbg:cbuf_in(v2),
+    [{v2,_,1}, {v4,_,1}, {v3,_,1}] = ssh_dbg:cbuf_list(),
+    %% Stop and check that the buffer is returned:
+    [{v2,_,1}, {v4,_,1}, {v3,_,1}] = ssh_dbg:cbuf_stop_clear(),
+    %% Stopping a stopped buffer returns empty:
+    [] = ssh_dbg:cbuf_stop_clear(),
+    %% Check that a value can't be entered in a stopped buffer:
+    disabled = ssh_dbg:cbuf_in(v2).
+
+%%--------------------------------------------------------------------
+cb_print(_Config) ->
+    ssh_dbg:cbuf_start(),
+    [begin
+         ssh_dbg:cbuf_in(V),
+         ct:log("Enter ~p",[V])
+     end || V <- lists:seq(1,10)],
+    ct:log("~s",[ssh_dbg:fmt_cbuf_items()]),
+    ssh_dbg:cbuf_stop_clear().
+
+%%--------------------------------------------------------------------
+cb_macros_print(_Config) ->
+    ssh_dbg:cbuf_start(),
+    [begin
+         V = {test,V0},
+         ?CIRC_BUF_IN(V),
+         ct:log("Enter ~p",[V])
+     end || V0 <- lists:seq(1,5)],
+    ct:log("~s",[ssh_dbg:fmt_cbuf_items()]),
+    ssh_dbg:cbuf_stop_clear().
+
 %%--------------------------------------------------------------------
 %%--------------------------------------------------------------------
 %%--------------------------------------------------------------------
-- 
cgit v1.2.3