Re: avl tree - booch components

[Simon Wright <simon@pushface.org>]

dwparsons@t-online.de (Dave Parsons) writes:

> Yes, I compiled all the tests and demos last weekend.  I had to turn
> off the style checking though, too many lines too long.

-gnaty gives errors on 3.13p, I'm used to warnings with 3.14a1. Sorry.
The 'lines too long' are typically the revision control strings, shame
CVS doesn't let you customise what $Id$ gives you ..

> Only queue_tests_concurrent seemed to have a serious problem. It
> compiled ok but hung near the end.

Hmm, on Linux it works as expected when run from the makefile but
locks up when run from the command line: ... stranger & stranger,
actually it works *every other time*. More investigation needed.

> All the others ran ok and the results looked ok except for
> map_test_concurrent, M10G, M11G, M10S & M11S.

This is correct behaviour, I forgot to update that test; this is the diff

--- map_test_concurrent.adb     2001/04/14 08:35:27     1.6
+++ map_test_concurrent.adb     2001/09/09 18:09:38
@@ -340,13 +340,13 @@
     Assertion (MUS."=" (The_US.Map_U_Pu1, Map_U_Pu3),
                "** M09S: Maps are not equal");
   end;
-  Assertion (MBG.Available (The_BG.Map_B_Pu1) = 297,
+  Assertion (MBG.Available (The_BG.Map_B_Pu1) = 97,
              "** M10G: Available space is not correct");
-  Assertion (MBG.Available (The_BG.Map_B_Pu2) = 300,
+  Assertion (MBG.Available (The_BG.Map_B_Pu2) = 100,
              "** M11G: Available space is not correct");
-  Assertion (MBS.Available (The_BS.Map_B_Pu1) = 297,
+  Assertion (MBS.Available (The_BS.Map_B_Pu1) = 97,
              "** M10S: Available space is not correct");
-  Assertion (MBS.Available (The_BS.Map_B_Pu2) = 300,
+  Assertion (MBS.Available (The_BS.Map_B_Pu2) = 100,
              "** M11S: Available space is not correct");
   Put_Line ("Completed map tests");

> I've never used the Booch Components before on any platform, so I
> don't know how this compares with other versions.
> 
> Comments anyone?

Thanks for the report.