Changeset 535d0183 in rtems for testsuites


Ignore:
Timestamp:
Dec 4, 2017, 9:51:33 AM (2 years ago)
Author:
Sebastian Huber <sebastian.huber@…>
Branches:
master
Children:
3d7d2a37
Parents:
6e05265f
git-author:
Sebastian Huber <sebastian.huber@…> (12/04/17 09:51:33)
git-committer:
Sebastian Huber <sebastian.huber@…> (12/04/17 09:53:38)
Message:

ada/sp09: Fix region test cases

Location:
testsuites/ada/sptests/sp09
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • testsuites/ada/sptests/sp09/sptest.adb

    r6e05265f r535d0183  
    24762476      RTEMS.REGION.EXTEND(
    24772477         SPTEST.REGION_ID( 1 ),
    2478          SPTEST.REGION_BAD_AREA'ADDRESS,
    2479          128,
    2480          STATUS
    2481       );
    2482       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2483          STATUS,
    2484          RTEMS.NOT_IMPLEMENTED,
    2485          "REGION_EXTEND WITH NOT_IMPLEMENTED"
    2486       );
    2487       TEXT_IO.PUT_LINE(
    2488          "TA1 - region_extend - non-contiguous lower - NOT_IMPLEMENTED"
     2478         SPTEST.REGION_GOOD_AREA(
     2479            SPTEST.REGION_START_OFFSET - 2 * SPTEST.REGION_LENGTH )'ADDRESS,
     2480         SPTEST.REGION_LENGTH,
     2481         STATUS
     2482      );
     2483      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     2484         STATUS,
     2485         RTEMS.SUCCESSFUL,
     2486         "REGION_EXTEND"
     2487      );
     2488      TEXT_IO.PUT_LINE(
     2489         "TA1 - region_extend - non-contiguous lower - SUCCESSFUL"
    24892490      );
    24902491
     
    24932494         SPTEST.REGION_GOOD_AREA(
    24942495            SPTEST.REGION_START_OFFSET - SPTEST.REGION_LENGTH )'ADDRESS,
    2495          128,
    2496          STATUS
    2497       );
    2498       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2499          STATUS,
    2500          RTEMS.NOT_IMPLEMENTED,
    2501          "REGION_EXTEND WITH NOT_IMPLEMENTED"
    2502       );
    2503       TEXT_IO.PUT_LINE(
    2504          "TA1 - region_extend - contiguous lower - NOT_IMPLEMENTED"
     2496         SPTEST.REGION_LENGTH,
     2497         STATUS
     2498      );
     2499      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     2500         STATUS,
     2501         RTEMS.SUCCESSFUL,
     2502         "REGION_EXTEND"
     2503      );
     2504      TEXT_IO.PUT_LINE(
     2505         "TA1 - region_extend - contiguous lower - SUCCESSFUL"
    25052506      );
    25062507
     
    25082509         SPTEST.REGION_ID( 1 ),
    25092510         SPTEST.REGION_GOOD_AREA(
    2510             SPTEST.REGION_START_OFFSET + SPTEST.REGION_LENGTH + 16 )'ADDRESS,
    2511          128,
    2512          STATUS
    2513       );
    2514       TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
    2515          STATUS,
    2516          RTEMS.NOT_IMPLEMENTED,
    2517          "REGION_EXTEND WITH NOT_IMPLEMENTED"
    2518       );
    2519       TEXT_IO.PUT_LINE(
    2520          "TA1 - region_extend - non-contiguous higher - NOT_IMPLEMENTED"
     2511            SPTEST.REGION_START_OFFSET + 2 * SPTEST.REGION_LENGTH )'ADDRESS,
     2512         SPTEST.REGION_LENGTH,
     2513         STATUS
     2514      );
     2515      TEST_SUPPORT.FATAL_DIRECTIVE_STATUS(
     2516         STATUS,
     2517         RTEMS.SUCCESSFUL,
     2518         "REGION_EXTEND"
     2519      );
     2520      TEXT_IO.PUT_LINE(
     2521         "TA1 - region_extend - non-contiguous higher - SUCCESSFUL"
    25212522      );
    25222523
  • testsuites/ada/sptests/sp09/sptest.ads

    r6e05265f r535d0183  
    166166   for REGION_GOOD_AREA'ALIGNMENT use RTEMS.STRUCTURE_ALIGNMENT;
    167167
    168    REGION_START_OFFSET : constant RTEMS.UNSIGNED32 := 1024;
     168   REGION_START_OFFSET : constant RTEMS.UNSIGNED32 := 2048;
    169169   REGION_LENGTH       : constant RTEMS.UNSIGNED32 := 512;
    170170
     
    175175
    176176   REGION_BAD_AREA_ADDRESS : constant System.Address :=
    177        System.Storage_Elements.To_Address(16#00000006#);
     177       System.Storage_Elements.To_Address(16#00000000#);
    178178
    179179   REGION_BAD_AREA : array ( RTEMS.UNSIGNED32 range 0 .. 255 )
Note: See TracChangeset for help on using the changeset viewer.