ADDED   src/natools-time_statistics-coarse_timers.ads
Index: src/natools-time_statistics-coarse_timers.ads
==================================================================
--- src/natools-time_statistics-coarse_timers.ads
+++ src/natools-time_statistics-coarse_timers.ads
@@ -0,0 +1,24 @@
+------------------------------------------------------------------------------
+-- Copyright (c) 2014, Natacha Porté                                        --
+--                                                                          --
+-- Permission to use, copy, modify, and distribute this software for any    --
+-- purpose with or without fee is hereby granted, provided that the above   --
+-- copyright notice and this permission notice appear in all copies.        --
+--                                                                          --
+-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES --
+-- WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF         --
+-- MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR  --
+-- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES   --
+-- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN    --
+-- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF  --
+-- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.           --
+------------------------------------------------------------------------------
+
+with Ada.Calendar;
+with Natools.Time_Statistics.Generic_Timers;
+
+package Natools.Time_Statistics.Coarse_Timers
+  is new Natools.Time_Statistics.Generic_Timers
+  (Ada.Calendar.Time,
+   Ada.Calendar.Clock,
+   Ada.Calendar."-");

Index: tests/natools-time_statistics-tests.adb
==================================================================
--- tests/natools-time_statistics-tests.adb
+++ tests/natools-time_statistics-tests.adb
@@ -11,10 +11,12 @@
 -- ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES   --
 -- WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN    --
 -- ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF  --
 -- OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.           --
 ------------------------------------------------------------------------------
+
+with Natools.Time_Statistics.Coarse_Timers;
 
 package body Natools.Time_Statistics.Tests is
 
    procedure Check is new NT.Generic_Check
      (Natural, "=", Natural'Image, False);
@@ -28,17 +30,55 @@
    -------------------------
 
    procedure All_Tests (Report : in out NT.Reporter'Class) is
    begin
       Summary_Accumulator (Report);
+      Coarse_Timer (Report);
    end All_Tests;
 
 
 
    -----------------------
    -- Inidividual Tests --
    -----------------------
+
+   procedure Coarse_Timer (Report : in out NT.Reporter'Class) is
+      Test : NT.Test := Report.Item ("Coarse timer standard use");
+      Total_Length : constant Duration := 0.2;
+   begin
+      declare
+         Stats : aliased Summary;
+      begin
+         declare
+            Actual_Auto : Coarse_Timers.Auto_Timer (Stats'Access);
+            Aborted_Auto : Coarse_Timers.Auto_Timer (Stats'Access);
+            Manual : Coarse_Timers.Manual_Timer (Stats'Access);
+
+            pragma Unreferenced (Actual_Auto);
+         begin
+            Manual.Start;
+            Check (Test, 0, Stats.Sample_Count);
+
+            delay Total_Length / 2;
+
+            Aborted_Auto.Cancel;
+            Manual.Stop;
+            Check (Test, 1, Stats.Sample_Count, "Sample count");
+            Manual.Start;
+
+            delay Total_Length / 2;
+
+            Manual.Cancel;
+            Check (Test, 1, Stats.Sample_Count, "Sample count");
+         end;
+
+         Check (Test, 2, Stats.Sample_Count, "Sample count");
+      end;
+   exception
+      when Error : others => Test.Report_Exception (Error);
+   end Coarse_Timer;
+
 
    procedure Summary_Accumulator (Report : in out NT.Reporter'Class) is
       Test : NT.Test := Report.Item ("Summary accumulator");
    begin
       declare

Index: tests/natools-time_statistics-tests.ads
==================================================================
--- tests/natools-time_statistics-tests.ads
+++ tests/natools-time_statistics-tests.ads
@@ -26,7 +26,8 @@
    package NT renames Natools.Tests;
 
    procedure All_Tests (Report : in out NT.Reporter'Class);
 
    procedure Summary_Accumulator (Report : in out NT.Reporter'Class);
+   procedure Coarse_Timer (Report : in out NT.Reporter'Class);
 
 end Natools.Time_Statistics.Tests;