tests/testthat/test-unique.R

In naryn: Native Access Medical Record Retriever for High Yield Analytics

load_test_db()


test_that("error is returned when track doesn't exist", {
    expect_error(emr_track.unique("blabla"))
})

test_that("emr_track.unique works", {
    expect_equal(
        emr_track.unique("track4"),
        c(
            1, 2, 4, 7, 8, 9, 10, 19, 20, 23, 24, 31, 36, 38, 40, 46, 50,
            59, 63, 66, 72, 75, 76, 80, 81, 82, 85, 86, 87, 88, 98, 104,
            109, 110, 112, 114, 115, 118, 119, 121, 125, 129, 131, 132, 134,
            136, 142, 146, 147, 148, 149, 151, 153, 155, 157, 163, 166, 167,
            168, 169, 171, 174, 176, 178, 180, 182, 185, 187, 189, 191, 192,
            193, 194, 195, 198, 200, 203, 205, 206, 207, 210, 211, 212, 213,
            216, 221, 222, 225, 229, 230, 236, 237, 243, 250, 251, 256, 257,
            266, 267, 272, 273, 276, 278, 280, 285, 290, 292, 293, 294, 300,
            301, 305, 308, 309, 310, 314, 315, 317, 322, 325, 327, 328, 330,
            332, 333, 338, 343, 346, 347, 352, 354, 355, 356, 358, 359, 360,
            361, 362, 368, 369, 376, 383, 387, 388, 389, 390, 391, 392, 393,
            394, 396, 398, 401, 402, 403, 408, 409, 410, 414, 417, 419, 421,
            423, 429, 430, 439, 443, 447, 450, 452, 453, 455, 456, 457, 462,
            463, 464, 465, 471, 472, 473, 474, 475, 476, 486, 487, 491, 493,
            494, 495, 500, 503, 504, 506, 507, 513, 516, 519, 521, 523, 524,
            525, 529, 530, 532, 533, 534, 535, 538, 539, 543, 544, 545, 546,
            547, 551, 558, 560, 565, 566, 570, 572, 573, 575, 578, 582, 586,
            588, 589, 594, 596, 598, 600, 601, 602, 603, 611, 612, 613, 616,
            617, 618, 622, 623, 625, 627, 628, 629, 630, 632, 636, 637, 638,
            640, 642, 643, 647, 651, 653, 656, 657, 661, 663, 664, 665, 670,
            676, 678, 682, 685, 689, 690, 693, 696, 698, 699, 705, 706, 707,
            712, 713, 714, 716, 717, 719, 723, 725, 726, 727, 730, 731, 732,
            734, 736, 737, 742, 743, 744, 747, 749, 750, 753, 756, 759, 761,
            763, 769, 770, 773, 779, 781, 785, 790, 793, 794, 795, 796, 797,
            799, 800, 804, 807, 808, 809, 814, 815, 817, 823, 825, 830, 831,
            835, 836, 838, 839, 840, 842, 843, 845, 846, 848, 850, 852, 854,
            855, 864, 866, 867, 874, 875, 876, 877, 879, 886, 887, 889, 890,
            892, 894, 895, 897, 900, 901, 906, 909, 910, 913, 914, 916, 918,
            920, 921, 923, 925, 926, 933, 934, 935, 937, 938, 939, 940, 941,
            942, 953, 957, 958, 960, 961, 964, 965, 966, 969, 976, 977, 980,
            982, 985, 991, 995, 997
        )
    )

    expect_equal(
        emr_track.unique("track5"),
        c(
            0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
            18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33,
            34, 35, 36, 37, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 50, 51,
            52, 53, 54, 55, 56, 57, 58, 59, 61, 62, 64, 65, 66, 68, 70, 71,
            72, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88,
            90, 91, 92, 93, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104,
            105, 108, 109, 111, 112, 113, 114, 115, 116, 117, 119, 121, 122,
            123, 124, 125, 127, 128, 129, 130, 131, 132, 134, 135, 136, 137,
            138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 148, 149, 151,
            152, 153, 154, 155, 156, 157, 158, 159, 160, 161, 162, 164, 165,
            166, 167, 168, 169, 170, 171, 172, 173, 174, 176, 177, 178, 179,
            180, 181, 183, 184, 185, 187, 188, 189, 190, 191, 192, 193, 194,
            195, 196, 197, 198, 199, 200, 202, 203, 204, 205, 206, 207, 208,
            209, 210, 211, 212, 213, 214, 215, 217, 218, 219, 220, 221, 222,
            223, 224, 226, 227, 229, 230, 231, 232, 233, 234, 235, 236, 237,
            238, 239, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 253,
            254, 255, 256, 257, 258, 259, 260, 261, 262, 263, 264, 265, 267,
            269, 270, 271, 273, 274, 275, 276, 277, 278, 279, 280, 281, 282,
            283, 284, 285, 286, 287, 288, 289, 290, 291, 292, 293, 294, 295,
            296, 297, 298, 300, 301, 302, 303, 304, 305, 306, 307, 308, 309,
            310, 312, 313, 314, 316, 317, 318, 319, 321, 322, 323, 324, 325,
            326, 327, 328, 329, 330, 331, 332, 333, 334, 335, 336, 337, 338,
            339, 340, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 351,
            352, 353, 354, 355, 356, 358, 359, 360, 361, 362, 363, 364, 365,
            366, 367, 368, 369, 370, 371, 372, 373, 374, 375, 376, 377, 378,
            379, 380, 381, 382, 384, 385, 386, 387, 388, 390, 391, 392, 394,
            395, 396, 397, 398, 399, 400, 401, 402, 403, 405, 406, 407, 408,
            409, 410, 411, 412, 413, 414, 415, 416, 417, 418, 419, 420, 422,
            423, 424, 425, 426, 427, 428, 429, 430, 431, 432, 433, 434, 435,
            436, 437, 438, 439, 440, 441, 442, 443, 444, 445, 446, 447, 448,
            449, 450, 451, 452, 453, 455, 456, 458, 459, 460, 461, 462, 463,
            464, 465, 466, 467, 468, 469, 470, 471, 472, 473, 474, 475, 476,
            477, 478, 479, 480, 481, 482, 483, 484, 485, 486, 487, 488, 489,
            490, 491, 492, 493, 494, 495, 496, 497, 498, 499, 500, 501, 502,
            503, 504, 505, 506, 507, 508, 509, 510, 511, 512, 513, 514, 515,
            516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 528,
            529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 541,
            542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 554,
            556, 557, 559, 560, 561, 562, 563, 564, 565, 566, 567, 569, 570,
            571, 572, 573, 574, 575, 576, 577, 578, 579, 580, 581, 582, 583,
            584, 585, 586, 587, 588, 589, 590, 591, 592, 593, 594, 596, 597,
            598, 599, 600, 601, 603, 604, 605, 607, 608, 610, 612, 613, 614,
            615, 616, 617, 618, 619, 620, 622, 623, 624, 626, 627, 628, 629,
            630, 631, 632, 633, 634, 635, 636, 637, 638, 640, 641, 642, 643,
            644, 645, 646, 647, 648, 649, 650, 651, 652, 653, 654, 655, 656,
            657, 658, 659, 660, 661, 662, 663, 664, 665, 666, 667, 669, 671,
            672, 673, 674, 675, 676, 678, 680, 681, 682, 683, 684, 685, 686,
            687, 688, 689, 690, 691, 692, 694, 695, 696, 697, 698, 699, 701,
            702, 703, 704, 705, 706, 707, 708, 709, 710, 711, 712, 713, 715,
            716, 717, 718, 719, 720, 721, 722, 723, 724, 725, 726, 727, 728,
            729, 730, 731, 732, 733, 734, 735, 736, 737, 738, 739, 740, 741,
            742, 743, 745, 746, 747, 748, 749, 750, 751, 752, 753, 754, 755,
            756, 758, 759, 760, 761, 762, 763, 765, 766, 767, 768, 769, 771,
            772, 773, 774, 775, 776, 777, 778, 780, 781, 782, 783, 784, 785,
            786, 787, 788, 789, 791, 792, 793, 794, 795, 796, 797, 798, 799,
            800, 801, 802, 803, 804, 805, 806, 807, 808, 809, 811, 812, 813,
            814, 815, 816, 817, 818, 819, 820, 821, 822, 823, 824, 825, 826,
            827, 828, 829, 830, 831, 832, 833, 834, 835, 836, 837, 838, 839,
            840, 842, 843, 845, 846, 847, 848, 849, 850, 851, 852, 853, 854,
            855, 856, 857, 858, 859, 860, 861, 862, 863, 864, 865, 866, 867,
            868, 869, 870, 871, 872, 873, 874, 875, 876, 877, 878, 879, 881,
            883, 884, 885, 886, 887, 888, 889, 890, 891, 892, 893, 894, 895,
            896, 897, 898, 899, 900, 901, 902, 903, 904, 905, 907, 908, 909,
            910, 911, 913, 915, 916, 917, 918, 919, 920, 921, 922, 923, 924,
            925, 926, 927, 928, 929, 930, 931, 932, 933, 934, 935, 936, 938,
            939, 940, 941, 942, 943, 945, 946, 948, 949, 951, 952, 953, 954,
            955, 956, 957, 958, 959, 961, 962, 963, 964, 965, 966, 967, 968,
            969, 970, 972, 973, 974, 975, 976, 977, 978, 979, 980, 981, 982,
            983, 984, 985, 986, 987, 989, 990, 991, 992, 993, 994, 995, 996,
            997, 998, 999
        )
    )
    expect_equal(
        emr_track.unique("track6"),
        0:9
    )
})