1<?php 2 3/** 4 * webtrees: online genealogy 5 * Copyright (C) 2023 webtrees development team 6 * This program is free software: you can redistribute it and/or modify 7 * it under the terms of the GNU General Public License as published by 8 * the Free Software Foundation, either version 3 of the License, or 9 * (at your option) any later version. 10 * This program is distributed in the hope that it will be useful, 11 * but WITHOUT ANY WARRANTY; without even the implied warranty of 12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 * GNU General Public License for more details. 14 * You should have received a copy of the GNU General Public License 15 * along with this program. If not, see <https://www.gnu.org/licenses/>. 16 */ 17 18declare(strict_types=1); 19 20namespace Fisharebest\Webtrees\Census; 21 22use Fisharebest\Webtrees\TestCase; 23 24/** 25 * Test harness for the class CensusOfSlovakia1940 26 */ 27class CensusOfSlovakia1940Test extends TestCase 28{ 29 /** 30 * Test the census place and date 31 * 32 * @covers \Fisharebest\Webtrees\Census\CensusOfSlovakia1940 33 */ 34 public function testPlaceAndDate(): void 35 { 36 $census = new CensusOfSlovakia1940(); 37 38 self::assertSame('Slovensko', $census->censusPlace()); 39 self::assertSame('14 DEC 1940', $census->censusDate()); 40 } 41 42 /** 43 * Test the census columns 44 * 45 * @covers \Fisharebest\Webtrees\Census\CensusOfSlovakia1940 46 * @covers \Fisharebest\Webtrees\Census\AbstractCensusColumn 47 */ 48 public function testColumns(): void 49 { 50 $census = new CensusOfSlovakia1940(); 51 $columns = $census->columns(); 52 53 self::assertCount(22, $columns); 54 self::assertInstanceOf(CensusColumnNull::class, $columns[0]); 55 self::assertInstanceOf(CensusColumnNull::class, $columns[1]); 56 self::assertInstanceOf(CensusColumnSurname::class, $columns[2]); 57 self::assertInstanceOf(CensusColumnGivenNames::class, $columns[3]); 58 self::assertInstanceOf(CensusColumnRelationToHead::class, $columns[4]); 59 self::assertInstanceOf(CensusColumnSexMZ::class, $columns[5]); 60 self::assertInstanceOf(CensusColumnBirthDayDotMonthYear::class, $columns[6]); 61 self::assertInstanceOf(CensusColumnNull::class, $columns[7]); 62 self::assertInstanceOf(CensusColumnBirthPlace::class, $columns[8]); 63 self::assertInstanceOf(CensusColumnNull::class, $columns[9]); 64 self::assertInstanceOf(CensusColumnNull::class, $columns[10]); 65 self::assertInstanceOf(CensusColumnNull::class, $columns[11]); 66 self::assertInstanceOf(CensusColumnNull::class, $columns[12]); 67 self::assertInstanceOf(CensusColumnNull::class, $columns[13]); 68 self::assertInstanceOf(CensusColumnNull::class, $columns[14]); 69 self::assertInstanceOf(CensusColumnReligion::class, $columns[15]); 70 self::assertInstanceOf(CensusColumnNull::class, $columns[16]); 71 self::assertInstanceOf(CensusColumnOccupation::class, $columns[17]); 72 self::assertInstanceOf(CensusColumnNull::class, $columns[18]); 73 self::assertInstanceOf(CensusColumnNull::class, $columns[19]); 74 self::assertInstanceOf(CensusColumnNull::class, $columns[20]); 75 self::assertInstanceOf(CensusColumnNull::class, $columns[21]); 76 77 self::assertSame('Č. b.', $columns[0]->abbreviation()); 78 self::assertSame('Č. os.', $columns[1]->abbreviation()); 79 self::assertSame('Priezvisko', $columns[2]->abbreviation()); 80 self::assertSame('Meno', $columns[3]->abbreviation()); 81 self::assertSame('Pomer', $columns[4]->abbreviation()); 82 self::assertSame('Poh.', $columns[5]->abbreviation()); 83 self::assertSame('Nar.', $columns[6]->abbreviation()); 84 self::assertSame('Stav', $columns[7]->abbreviation()); 85 self::assertSame('Rodisko', $columns[8]->abbreviation()); 86 self::assertSame('P. trv.', $columns[9]->abbreviation()); 87 self::assertSame('Byd. doč.', $columns[10]->abbreviation()); 88 self::assertSame('Dát. prisťahovania', $columns[11]->abbreviation()); 89 self::assertSame('Odkiaľ', $columns[12]->abbreviation()); 90 self::assertSame('Príslušnosť', $columns[13]->abbreviation()); 91 self::assertSame('Národnosť', $columns[14]->abbreviation()); 92 self::assertSame('Náb.', $columns[15]->abbreviation()); 93 self::assertSame('Čít./Pís.', $columns[16]->abbreviation()); 94 self::assertSame('Povolanie', $columns[17]->abbreviation()); 95 self::assertSame('Postavenie', $columns[18]->abbreviation()); 96 self::assertSame('Závod', $columns[19]->abbreviation()); 97 self::assertSame('Odvetvie', $columns[20]->abbreviation()); 98 self::assertSame('Poz.', $columns[21]->abbreviation()); 99 100 self::assertSame('Radové číslo bytu', $columns[0]->title()); 101 self::assertSame('Radové číslo osôb v byte', $columns[1]->title()); 102 self::assertSame('Priezvisko (meno rodinné)', $columns[2]->title()); 103 self::assertSame('Meno (krstné alebo rodné)', $columns[3]->title()); 104 self::assertSame('Príbuzenský alebo iný pomer k hlave domácnosti', $columns[4]->title()); 105 self::assertSame('Pohlavie mužské alebo ženské', $columns[5]->title()); 106 self::assertSame('Deň, mesiac a rok narodenia', $columns[6]->title()); 107 self::assertSame('Rodinný stav', $columns[7]->title()); 108 self::assertSame('a) rodná obec, b) okres', $columns[8]->title()); 109 self::assertSame('Je sčítaný v obci prítomný trvale?', $columns[9]->title()); 110 self::assertSame('Ak dočasne, nech uvedie svoje riadne bydlisko', $columns[10]->title()); 111 self::assertSame('Ak sčítaný nebýva v obci pobytu od narodenia, kedy sa prisťahoval', $columns[11]->title()); 112 self::assertSame('Ak sčítaný nebýva v obci pobytu od narodenia, odkiaľ sa prisťahoval', $columns[12]->title()); 113 self::assertSame('Státna príslušnosť', $columns[13]->title()); 114 self::assertSame('Národnosť', $columns[14]->title()); 115 self::assertSame('Náboženstvo (cirkevná príslušnosť alebo bez vyznania', $columns[15]->title()); 116 self::assertSame('Znalosť čítania a písania len u osôb starších 6tich rokov', $columns[16]->title()); 117 self::assertSame('Druh povolania', $columns[17]->title()); 118 self::assertSame('Postavenie v povolaní', $columns[18]->title()); 119 self::assertSame('Názov a sídlo závodu (firmy, úradu)', $columns[19]->title()); 120 self::assertSame('K akému odvetviu patrí závod (firma, úrad)', $columns[20]->title()); 121 self::assertSame('Poznámka', $columns[21]->title()); 122 } 123} 124