How we shall test it.

• §1. Adjectives
• §2. Articles
• §3. Declensions
• §4. Participles
• §5. Plurals
• §6. Verbs

§1. Adjectives.

void Unit::test_adjectives?Usage of Unit::test_adjectives:
Program Control - §1(text_stream *arg) {
    filename *F = Filenames::from_text(arg);
    source_file *sf = TextFromFiles::feed_into_lexer(F, NULL_GENERAL_POINTER);
    if (sf == NULL) PRINT("File has failed to open\n");
    else {
        LOOP_THROUGH_WORDING(i, sf->text_read) {
            if (Lexer::word(i) == PARBREAK_V) continue;
            wording W = Wordings::one_word(i);
            PRINT("%W --> ", W);
            PRINT("comparative: %W, ", Grading::make_comparative(W, DefaultLanguage::get(NULL)));
            PRINT("superlative: %W, ", Grading::make_superlative(W, DefaultLanguage::get(NULL)));
            PRINT("quiddity: %W\n", Grading::make_quiddity(W, DefaultLanguage::get(NULL)));
        }
    }
}

§2. Articles.

void Unit::test_articles?Usage of Unit::test_articles:
Program Control - §1(text_stream *arg) {
    filename *F = Filenames::from_text(arg);
    source_file *sf = TextFromFiles::feed_into_lexer(F, NULL_GENERAL_POINTER);
    if (sf == NULL) PRINT("File has failed to open\n");
    else {
        LOOP_THROUGH_WORDING(i, sf->text_read) {
            if (Lexer::word(i) == PARBREAK_V) continue;
            wording W = Wordings::one_word(i);
            TEMPORARY_TEXT(T)
            WRITE_TO(T, "%W", W);
            TEMPORARY_TEXT(AT)
            ArticleInflection::preface_by_article(AT, T, DefaultLanguage::get(NULL));
            PRINT("%S --> %S\n", T, AT);
            DISCARD_TEXT(AT)
            DISCARD_TEXT(T)
        }
    }
}

§3. Declensions.

void Unit::test_declensions?Usage of Unit::test_declensions:
Program Control - §1(text_stream *arg) {
    vocabulary_entry *m_V = Vocabulary::entry_for_text(U"m");
    vocabulary_entry *f_V = Vocabulary::entry_for_text(U"f");
    vocabulary_entry *n_V = Vocabulary::entry_for_text(U"n");
    filename *F = Filenames::from_text(arg);
    source_file *sf = TextFromFiles::feed_into_lexer(F, NULL_GENERAL_POINTER);
    if (sf == NULL) PRINT("File has failed to open\n");
    else {
        wording PW = Feeds::feed_text(I"der");
        int gen = NEUTER_GENDER;
        LOOP_THROUGH_WORDING(i, sf->text_read) {
            if (Lexer::word(i) == PARBREAK_V) continue;
            if (Lexer::word(i) == m_V) { gen = MASCULINE_GENDER; continue; }
            if (Lexer::word(i) == f_V) { gen = FEMININE_GENDER; continue; }
            if (Lexer::word(i) == n_V) { gen = NEUTER_GENDER; continue; }
            wording W = Wordings::one_word(i);
            declension D = Declensions::of_noun(W, DefaultLanguage::get(NULL), gen, SINGULAR_NUMBER);
            declension AD = Declensions::of_article(PW, DefaultLanguage::get(NULL), gen, SINGULAR_NUMBER);
            PRINT("%W --> ", W);
            Declensions::writer(STDOUT, &D, &AD);
            D = Declensions::of_noun(W, DefaultLanguage::get(NULL), gen, PLURAL_NUMBER);
            AD = Declensions::of_article(PW, DefaultLanguage::get(NULL), gen, PLURAL_NUMBER);
            PRINT("pl --> ");
            Declensions::writer(STDOUT, &D, &AD);
            PRINT("\n");
        }
    }
}

§4. Participles.

void Unit::test_participles?Usage of Unit::test_participles:
Program Control - §1(text_stream *arg) {
    filename *F = Filenames::from_text(arg);
    source_file *sf = TextFromFiles::feed_into_lexer(F, NULL_GENERAL_POINTER);
    if (sf == NULL) PRINT("File has failed to open\n");
    else {
        LOOP_THROUGH_WORDING(i, sf->text_read) {
            if (Lexer::word(i) == PARBREAK_V) continue;
            wording W = Wordings::one_word(i);
            PRINT("%W --> %W\n", W, PastParticiples::pasturise_wording(W));
        }
    }
}

§5. Plurals. (ASAGIG stands for "as sure as geese is geese".)

void Unit::test_plurals?Usage of Unit::test_plurals:
Program Control - §1(text_stream *arg) {
    filename *F = Filenames::from_text(arg);
    source_file *sf = TextFromFiles::feed_into_lexer(F, NULL_GENERAL_POINTER);
    if (sf == NULL) PRINT("File has failed to open\n");
    else {
        LOOP_THROUGH_WORDING(i, sf->text_read) {
            if (Lexer::word(i) == PARBREAK_V) continue;
            wording W = Wordings::one_word(i);
            TEMPORARY_TEXT(G)
            WRITE_TO(G, "%W", W);
            TEMPORARY_TEXT(ASAGIG)
            Pluralisation::regular(ASAGIG, G, DefaultLanguage::get(NULL));
            PRINT("%S --> %S\n", G, ASAGIG);
            DISCARD_TEXT(ASAGIG)
            DISCARD_TEXT(G)
        }
    }
}

§6. Verbs.

void Unit::test_verbs?Usage of Unit::test_verbs:
Program Control - §1(text_stream *arg) {
    filename *F = Filenames::from_text(arg);
    source_file *sf = TextFromFiles::feed_into_lexer(F, NULL_GENERAL_POINTER);
    if (sf == NULL) PRINT("File has failed to open\n");
    else {
        int c = 0;
        LOOP_THROUGH_WORDING(i, sf->text_read) {
            if (Lexer::word(i) == PARBREAK_V) continue;
            wording W = Wordings::one_word(i);
            if (c++ < 10) {
                PRINT("Verb %W -->\n", W);
                TEMPORARY_TEXT(T)
                Conjugation::test(T, W, DefaultLanguage::get(NULL));
                Regexp::replace(T, U"%^", U"\n", REP_REPEATING);
                PRINT("%S\n", T);
                DISCARD_TEXT(T)
            } else {
                Conjugation::test_participle(STDOUT, W);
            }
        }
    }
}