path: root/spec/rtems/barrier/req/create.yml

SPDX-License-Identifier: CC-BY-SA-4.0 OR BSD-2-Clause
copyrights:
- Copyright (C) 2021 embedded brains GmbH (http://www.embedded-brains.de)
enabled-by: true
functional-type: action
links:
- role: interface-function
  uid: ../if/create
post-conditions:
- name: Status
  states:
  - name: Ok
    test-code: |
      T_rsc_success( ctx->status );
    text: |
      The return status of ${../if/create:/name} shall be
      ${../../status/if/successful:/name}.
  - name: InvName
    test-code: |
      T_rsc( ctx->status, RTEMS_INVALID_NAME );
    text: |
      The return status of ${../if/create:/name} shall be
      ${../../status/if/invalid-name:/name}.
  - name: InvAddr
    test-code: |
      T_rsc( ctx->status, RTEMS_INVALID_ADDRESS );
    text: |
      The return status of ${../if/create:/name} shall be
      ${../../status/if/invalid-address:/name}.
  - name: InvNum
    test-code: |
      T_rsc( ctx->status, RTEMS_INVALID_NUMBER );
    text: |
      The return status of ${../if/create:/name} shall be
      ${../../status/if/invalid-number:/name}.
  - name: TooMany
    test-code: |
      T_rsc( ctx->status, RTEMS_TOO_MANY );
    text: |
      The return status of ${../if/create:/name} shall be
      ${../../status/if/too-many:/name}.
  test-epilogue: null
  test-prologue: null
- name: Name
  states:
  - name: Valid
    test-code: |
      id = INVALID_ID;
      sc = rtems_barrier_ident( NAME, &id );
      T_rsc_success( sc );
      T_eq_u32( id, ctx->id_value );
    text: |
      The unique object name shall identify the barrier created by the
      ${../if/create:/name} call.
  - name: Invalid
    test-code: |
      sc = rtems_barrier_ident( NAME, &id );
      T_rsc( sc, RTEMS_INVALID_NAME );
    text: |
      The unique object name shall not identify the barrier created by the
      ${../if/create:/name} call.
  test-epilogue: null
  test-prologue: |
    rtems_status_code sc;
    rtems_id          id;
- name: Class
  states:
  - name: NoObj
    test-code: |
      /* Not applicable */
    text: |
      The barrier class is not applicable since there was no barrier created.
  - name: Manual
    test-code: |
      sc = rtems_barrier_wait( ctx->id_value, RTEMS_NO_TIMEOUT );
      T_rsc_success( sc );

      ++ctx->release_expected;
      T_eq_u32( ctx->release_done, ctx->release_expected );
    text: |
      The class of the barrier shall be manual release.
  - name: Auto
    test-code: |
      sc = rtems_barrier_wait( ctx->id_value, RTEMS_NO_TIMEOUT );
      T_rsc_success( sc );

      T_eq_u32( ctx->release_done, ctx->release_expected );
    text: |
      The class of the barrier shall be automatic release.
  test-epilogue: null
  test-prologue: |
    rtems_status_code sc;
- name: IdValue
  states:
  - name: Assigned
    test-code: |
      T_eq_ptr( ctx->id, &ctx->id_value );
      T_ne_u32( ctx->id_value, INVALID_ID );
    text: |
      The value of the object identifier variable shall be equal to the object
      identifier of the barrier created by the ${../if/create:/name} call.
  - name: Unchanged
    test-code: |
      T_eq_u32( ctx->id_value, INVALID_ID );
    text: |
      The value of the object identifier variable shall be unchanged by the
      ${../if/create:/name} call.
  test-epilogue: null
  test-prologue: null
pre-conditions:
- name: Name
  states:
  - name: Valid
    test-code: |
      ctx->name = NAME;
    text: |
      The ${../if/create:/params[0]/name} parameter shall be valid.
  - name: Invalid
    test-code: |
      ctx->name = 0;
    text: |
      The ${../if/create:/params[0]/name} parameter shall be invalid.
  test-epilogue: null
  test-prologue: null
- name: Class
  states:
  - name: Default
    test-code: |
      /* Nothing to do */
    text: |
      The ${../if/create:/params[1]/name} parameter shall specify the default
      class.
  - name: Manual
    test-code: |
      ctx->attribute_set |= RTEMS_BARRIER_MANUAL_RELEASE;
    text: |
      The ${../if/create:/params[1]/name} parameter shall specify the manual
      release class.
  - name: Auto
    test-code: |
      ctx->attribute_set |= RTEMS_BARRIER_AUTOMATIC_RELEASE;
    text: |
      The ${../if/create:/params[1]/name} parameter shall specify the
      automatic release class.
  test-epilogue: null
  test-prologue: null
- name: MaxWait
  states:
  - name: Zero
    test-code: |
      ctx->maximum_waiters = 0;
    text: |
      The ${../if/create:/params[2]/name} parameter shall be zero.
  - name: Positive
    test-code: |
      ctx->maximum_waiters = 1;
    text: |
      The ${../if/create:/params[2]/name} parameter shall be positive.
  test-epilogue: null
  test-prologue: null
- name: Id
  states:
  - name: Valid
    test-code: |
      ctx->id = &ctx->id_value;
    text: |
      The ${../if/create:/params[3]/name} parameter shall reference an object
      identifier value.
  - name: 'Null'
    test-code: |
      ctx->id = NULL;
    text: |
      The ${../if/create:/params[3]/name} parameter shall be
      ${/c/if/null:/name}.
  test-epilogue: null
  test-prologue: null
- name: Free
  states:
  - name: 'Yes'
    test-code: |
      /* Nothing to do */
    text: |
      The system shall have at least one inactive barrier object available.
  - name: 'No'
    test-code: |
      while ( true ) {
        rtems_status_code sc;
        rtems_id          id;

        sc = rtems_barrier_create(
          rtems_build_name( 'B', 'L', 'U', 'B' ),
          RTEMS_DEFAULT_ATTRIBUTES,
          0,
          &id
        );

        if ( sc == RTEMS_SUCCESSFUL ) {
          Objects_Control           *obj;
          const Objects_Information *info;

          info = _Objects_Get_information_id( id );
          T_quiet_assert_not_null( info );
          obj = _Objects_Get_no_protection( id, info );
          T_quiet_assert_not_null( obj );
          _Chain_Append_unprotected( &ctx->active_objects, &obj->Node );
        } else {
          T_quiet_rsc( sc, RTEMS_TOO_MANY );
          break;
        }
      }
    text: |
      The system shall have no inactive partition object available.
  test-epilogue: null
  test-prologue: null
rationale: null
references: []
requirement-type: functional
skip-reasons: {}
test-action: |
  ctx->status = rtems_barrier_create(
    ctx->name,
    ctx->attribute_set,
    ctx->maximum_waiters,
    ctx->id
  );
test-brief: null
test-cleanup: |
  Chain_Node *node;

  if ( ctx->id_value != INVALID_ID ) {
    rtems_status_code sc;

    sc = rtems_barrier_delete( ctx->id_value );
    T_rsc_success( sc );

    ctx->id_value = INVALID_ID;
  }

  while ( ( node = _Chain_Get_unprotected( &ctx->active_objects ) ) ) {
    Objects_Control   *obj;
    rtems_status_code  sc;

    obj = (Objects_Control *) node;
    sc = rtems_barrier_delete( obj->id );
    T_quiet_rsc_success( sc );
  }
test-context:
- brief: null
  description: null
  member: Chain_Control active_objects
- brief: null
  description: null
  member: |
    rtems_id worker_id
- brief: null
  description: null
  member: |
    rtems_id id_value
- brief: null
  description: null
  member: |
    uint32_t release_done
- brief: null
  description: null
  member: |
    uint32_t release_expected
- brief: null
  description: null
  member: |
    rtems_name name
- brief: null
  description: null
  member: |
    rtems_attribute attribute_set
- brief: null
  description: null
  member: |
    uint32_t maximum_waiters
- brief: null
  description: null
  member: |
    rtems_id *id
- brief: null
  description: null
  member: |
    rtems_status_code status
test-context-support: null
test-description: null
test-header: null
test-includes:
- rtems.h
- rtems/score/chainimpl.h
- rtems/score/objectimpl.h
- string.h
test-local-includes: []
test-prepare: null
test-setup:
  brief: null
  code: |
    rtems_status_code sc;

    memset( ctx, 0, sizeof( *ctx ) );
    ctx->id_value = INVALID_ID;
    _Chain_Initialize_empty( &ctx->active_objects );

    sc = rtems_task_create(
      rtems_build_name( 'W', 'O', 'R', 'K' ),
      PRIO_LOW,
      RTEMS_MINIMUM_STACK_SIZE,
      RTEMS_DEFAULT_MODES,
      RTEMS_DEFAULT_ATTRIBUTES,
      &ctx->worker_id
    );
    T_assert_rsc_success( sc );

    sc = rtems_task_start( ctx->worker_id, Worker, (rtems_task_argument) ctx );
    T_assert_rsc_success( sc );
  description: null
test-stop: null
test-support: |
  #define NAME rtems_build_name( 'T', 'E', 'S', 'T' )

  #define INVALID_ID 0xffffffff

  typedef RtemsBarrierReqCreate_Context Context;

  typedef enum {
    PRIO_NORMAL = 1,
    PRIO_LOW
  } Priorities;

  static void Worker( rtems_task_argument arg )
  {
    Context *ctx;

    ctx = (Context *) arg;

    while ( true ) {
      rtems_status_code sc;
      uint32_t          released;

      ++ctx->release_done;

      released = 0;
      sc = rtems_barrier_release( ctx->id_value, &released );
      T_rsc_success( sc );
      T_eq_u32( released, 1 );
    }
  }
test-target: testsuites/validation/tc-barrier-create.c
test-teardown:
  brief: null
  code: |
    rtems_status_code sc;

    if ( ctx->worker_id != 0 ) {
      sc = rtems_task_delete( ctx->worker_id );
      T_rsc_success( sc );
    }
  description: null
text: ${.:text-template}
transition-map:
- enabled-by: true
  post-conditions:
    Status: InvName
    Name: Invalid
    Class: NoObj
    IdValue: Unchanged
  pre-conditions:
    Name:
    - Invalid
    Id: all
    Class: all
    MaxWait: all
    Free: all
- enabled-by: true
  post-conditions:
    Status: InvAddr
    Name: Invalid
    Class: NoObj
    IdValue: Unchanged
  pre-conditions:
    Name:
    - Valid
    Id:
    - 'Null'
    Class: all
    MaxWait: all
    Free: all
- enabled-by: true
  post-conditions:
    Status: Ok
    Name: Valid
    Class: Manual
    IdValue: Assigned
  pre-conditions:
    Name:
    - Valid
    Id:
    - Valid
    Class:
    - Default
    - Manual
    MaxWait: all
    Free:
    - 'Yes'
- enabled-by: true
  post-conditions:
    Status: InvNum
    Name: Invalid
    Class: NoObj
    IdValue: Unchanged
  pre-conditions:
    Name:
    - Valid
    Id:
    - Valid
    Class:
    - Auto
    MaxWait:
    - Zero
    Free: all
- enabled-by: true
  post-conditions:
    Status: Ok
    Name: Valid
    Class: Auto
    IdValue: Assigned
  pre-conditions:
    Name:
    - Valid
    Id:
    - Valid
    Class:
    - Auto
    MaxWait:
    - Positive
    Free:
    - 'Yes'
- enabled-by: true
  post-conditions:
    Status: TooMany
    Name: Invalid
    Class: NoObj
    IdValue: Unchanged
  pre-conditions:
    Name:
    - Valid
    Id:
    - Valid
    Class:
    - Default
    - Manual
    MaxWait: all
    Free:
    - 'No'
- enabled-by: true
  post-conditions:
    Status: TooMany
    Name: Invalid
    Class: NoObj
    IdValue: Unchanged
  pre-conditions:
    Name:
    - Valid
    Id:
    - Valid
    Class:
    - Auto
    MaxWait:
    - Positive
    Free:
    - 'No'
type: requirement