% Do basic testing of model, ensuring zero errors
% for all SCO voice packet types and slot options at high SNR

% Define model
Modelname='bluetooth_full_duplex';

% Turn off AWGN
set_param([Modelname '/System parameters'],'Channel_type','None');

% Packet types and intial slot options to be simulated
Test_Packet_Types={'HV1', 'HV2', 'HV3', 'SCORT'};
Slot_options{1}={'1&2'};
Slot_options{2}={'1&2' '3&4'};
Slot_options{3}={'1&2' '3&4' '5&6'};
Slot_options{4}={'1&2'};

Simulation_time=7/1600; % 7 slots

for Test_Packet_Type=1:length(Test_Packet_Types) % For each packet type...
    
    %  Set devices to current packet type     
    set_param([Modelname '/System parameters'],'Packet_type',Test_Packet_Types{Test_Packet_Type});
   
    for Slot_option=1:length(Slot_options{Test_Packet_Type})
        
        % Set slot option
        set_param([Modelname '/BT Device'],'Slot_pair',Slot_options{Test_Packet_Type}{Slot_option});
        set_param([Modelname '/BT Device1'],'Slot_pair',Slot_options{Test_Packet_Type}{Slot_option});
        
        %  Display packet type currently being simulated
        disp(['Testing packet type: ' Test_Packet_Types{Test_Packet_Type} ', Slot Option: ' Slot_options{Test_Packet_Type}{Slot_option} '...'] );
        
        % Run simulation
        sim(Modelname, Simulation_time);
        
        % Display results
        disp('Error Results:');   
        disp(['Device 1: ' num2str(BER_Results1)]);   
        disp(['Device 2: ' num2str(BER_Results2)]);  
        disp(' ');
        
        % Error-out if any failures
        if any(BER_Results1)
            error(['Test failed. Packet type ' Test_Packet_Types{Test_Packet_Type}])
        end
    end
end