/*
 * prueba_ver_binario.c
 *
 *  Created on: 5 abr. 2018
 *      Author: alcarraz
 */

#include <stdio.h>
#include <stdlib.h>
#include "bits.h"
#include <string.h>

#define NPRUEBAS 17
#define BUFF_SIZE (NPRUEBAS + 1)
int main() {
    char buffer[BUFF_SIZE];
    char *esperados[] = {
        "",
        "0",
        "01",
        "011",
        "0010",
        "01010",
        "001000",
        "1010111",
        "01111100",
        "001111010",
        "1001011010",
        "10001100101",
        "110100101010",
        "1100100100010",
        "10111110011010",
        "001110010111011",
        "0000000100011110"
    };
    unsigned int entradas[] = {
            0b1010110111111111,
            0b1100110110011000,
            0b1110100101011101,
            0b1110111010010011,
            0b1001111100010010,
            0b0111101000001010,
            0b1100111100001000,
            0b1100011001010111,
            0b1101011101111100,
            0b1010111001111010,
            0b1101011001011010,
            0b0000110001100101,
            0b1111110100101010,
            0b0011100100100010,
            0b0010111110011010,
            0b0001110010111011,
            0b0000000100011110
    };
    /*nombre de archivo temporal*/
    char * tmpfname = tmpnam(NULL);
    int nb, aciertos=0;
    for(nb=0; nb<NPRUEBAS; nb++){
        FILE temp=*stdout; /*donde guardamos *stdout temporalmente*/
        FILE *fout = fopen(tmpfname,"w"), *fin;
        char * esperado = esperados[nb];
        unsigned entrada = entradas[nb];
        /*engañamos al sistema para que la salida estandar vaya al archivo*/
        *stdout = *fout;
        ver_binario(entrada, nb);
        fflush(stdout);

        fin = fopen (tmpfname,"r");
        /*leemos nb+1 caracteres, el último debe ser el salto de línea*/
        int largo = fread(buffer, 1, nb, fin);

        /*terminamos el string leído*/
        buffer[nb]=0;
        int ok = (
                largo == nb  /*el archivo contenía al menos nb caracteres*/
                && strncmp(buffer,esperado,nb) == 0 /*y los caracteres leidos son iguales a los esperados*/
                && /*y leímos el contenido completo del archivo*/
                (
                        ( fgetc(fin) == '\n' && fgetc(fin) == EOF ) /*consideramos el caso del salto de linea como correcto*/
                        || fgetc(fin) == EOF /*o si no estaba presente, el fgetc anterior devolció EOF y este también*/
                )
        ) ;
        aciertos += ok;
        /*recuperamos la salida estandar para imprimir los resultados*/
        *stdout=temp;
        printf("nb=%02d,buffer=0x%04x: %s, esperado=\"%s\", resultado=\"%s\"\n",
                nb, entrada, ok ? "correcto" : "incorrecto",
                                           esperado, buffer);
        fclose(fout);
        fclose(fin);
    }
    remove(tmpfname);
    printf("Número de aciertos: %d, desaciertos %d\n", aciertos, NPRUEBAS-aciertos);
	return NPRUEBAS-aciertos;
}