gnunet-svn
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[robocop] 06/37: Add more tests


From: Admin
Subject: [robocop] 06/37: Add more tests
Date: Thu, 05 Jun 2025 10:20:51 +0200

This is an automated email from the git hooks/post-receive script.

grothoff pushed a commit to branch master
in repository robocop.

commit 88c9fdf95fd5e6554badcb1c008e0fabcb7a9a40
Author: Gust Leenaars <gl.nlnet@leenaa.rs>
AuthorDate: Sun May 4 21:35:41 2025 +0200

    Add more tests
---
 test/Tests/Check.hs        | 84 ++++++++++++++++++++++++++++++++++++++++++++++
 test/data/target_29723.xml | 34 +++++++++++++++++++
 test/data/target_38925.xml | 38 +++++++++++++++++++++
 test/data/target_43611.xml | 32 ++++++++++++++++++
 test/data/target_6.xml     | 27 +++++++++++++++
 5 files changed, 215 insertions(+)

diff --git a/test/Tests/Check.hs b/test/Tests/Check.hs
index ccd3c3b..2db7a63 100644
--- a/test/Tests/Check.hs
+++ b/test/Tests/Check.hs
@@ -103,6 +103,10 @@ personTests map_ind = testGroup "Individuals"
                             , testTarget False 43641 target_43641 map_ind $ 
distribution 0       100  0   125  0           0.75
                             , testTarget False 43718 target_43718 map_ind $ 
distribution 0       100  0   125  0           0.75
                             , testTarget False 43662 target_43662 map_ind $ 
distribution 0       100  0   125  0           0.75
+                            , testTarget False 43611 target_43611 map_ind $ 
distribution 0       0    0   125  0           0.75
+                            , testTarget False 29723 target_29723 map_ind $ 
distribution 0       100  0   125  0           0.75
+                            , testTarget False 6 target_6 map_ind $ 
distribution         0       100  0   125  0           0.75
+                            , testTarget False 38925 target_38925 map_ind $ 
distribution 100     0    0   0    0           0.75
                             ]
                         , testGroup "Public and imaginary figures"
                             [ testTrusted False public_figure_1 map_ind "Hergé"
@@ -298,6 +302,66 @@ target_43662 = NaturalPerson
                               }
   }
 
+target_43611 :: NaturalPerson
+target_43611 = NaturalPerson
+  { full_name   = "Vladimir Viktorovich Kalach"
+  , last_name   = "Kalach"
+  , birthdate   = YearMonthDay 1960 12 22 -- Made up birth date
+  , nationality = BY
+  , national_id = "012345ABCDEF"
+  , residential = GLS.Address { GLS.country         = BY
+                              , street_name         = "Non existent"
+                              , street_number       = "Non existent"
+                              , GLS.lines           = Nothing
+                              , building_name       = Nothing
+                              , building_number     = Nothing
+                              , zipcode             = "Non existent"
+                              , town_location       = Nothing
+                              , town_district       = Nothing
+                              , country_subdivision = Nothing
+                              }
+  }
+
+target_29723 :: NaturalPerson
+target_29723 = NaturalPerson
+  { full_name   = "Равиль Закариевич Халиков"
+  , last_name   = "Халиков"
+  , birthdate   = YearMonthDay 1969 02 23
+  , nationality = RU
+  , national_id = "012345ABCDEF"
+  , residential = GLS.Address { GLS.country         = RU
+                              , street_name         = "Non existent"
+                              , street_number       = "Non existent"
+                              , GLS.lines           = Nothing
+                              , building_name       = Nothing
+                              , building_number     = Nothing
+                              , zipcode             = "Non existent"
+                              , town_location       = Nothing
+                              , town_district       = Nothing
+                              , country_subdivision = Nothing
+                              }
+  }
+
+target_38925 :: NaturalPerson
+target_38925 = NaturalPerson
+  { full_name   = "Solomon Grundy"
+  , last_name   = "Grundy"
+  , birthdate   = YearMonthDay 1800 06 06
+  , nationality = BE
+  , national_id = "012345ABCDEF"
+  , residential = GLS.Address { GLS.country         = BE
+                              , street_name         = "Kryzhizhanovskogo str."
+                              , street_number       = "5A"
+                              , GLS.lines           = Nothing
+                              , building_name       = Nothing
+                              , building_number     = Just "64"
+                              , zipcode             = "Non existent"
+                              , town_location       = Just "Gresovskoe"
+                              , town_district       = Nothing
+                              , country_subdivision = Nothing
+                              }
+  }
+
 public_figure_1 :: NaturalPerson
 public_figure_1 = NaturalPerson
   { full_name   = "Georges Prosper Remi"
@@ -497,3 +561,23 @@ imaginary_figure_5 = NaturalPerson
                               , country_subdivision = Just "Pennsylvania"
                               }
   }
+
+target_6 :: NaturalPerson
+target_6 = NaturalPerson
+  { full_name   = "Bowser"
+  , last_name   = "Bowser"
+  , birthdate   = YearMonthDay 1985 09 13
+  , nationality = JP
+  , national_id = "012345ABCDEF"
+  , residential = GLS.Address { GLS.country         = JP
+                              , street_name         = "Non existent"
+                              , street_number       = "Non existent"
+                              , GLS.lines           = Nothing
+                              , building_name       = Nothing
+                              , building_number     = Nothing
+                              , zipcode             = "Non existent"
+                              , town_location       = Nothing
+                              , town_district       = Nothing
+                              , country_subdivision = Nothing
+                              }
+  }
diff --git a/test/data/target_29723.xml b/test/data/target_29723.xml
new file mode 100644
index 0000000..a20fd9a
--- /dev/null
+++ b/test/data/target_29723.xml
@@ -0,0 +1,34 @@
+<swiss-sanctions-list list-type="whole-list" date="2024-07-30">
+       <target ssid="29721">
+               <sanctions-set-id>4387</sanctions-set-id>
+               <individual>
+                       <identity ssid="29723" main="true">
+                               <name ssid="36920" name-type="primary-name" 
quality="good" lang="eng">
+                                       <name-part order="1" 
name-part-type="family-name">
+                                               <value>Khalikov</value>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">Халиков</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Khalikov</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="CYRL" spelling-variant-type="not-defined">Халiков</spelling-variant>
+                                       </name-part>
+                                       <name-part order="2" 
name-part-type="given-name">
+                                               <value>Ravil</value>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">Равиль</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Ravil</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="CYRL" spelling-variant-type="not-defined">Равіль</spelling-variant>
+                                       </name-part>
+                                       <name-part order="3" 
name-part-type="father-name">
+                                               <value>Zakarievich</value>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">Закариевич</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="LATN" 
spelling-variant-type="not-defined">Zakariyovych</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="CYRL" spelling-variant-type="not-defined">Закарійович</spelling-variant>
+                                       </name-part>
+                               </name>
+                               <day-month-year ssid="31009" day="23" month="2" 
year="1969" calendar="Gregorian" quality="good"/>
+                               <place-of-birth ssid="36095" place-id="36094" 
quality="good"/>
+                       </identity>
+                       <justification ssid="34851">Former so-called "First 
Deputy Prime Minister" and previous "Prosecutor-General" of the "Donetsk 
People's Republic".</justification>
+                       <justification ssid="32156">In taking on and acting in 
this capacity, he has therefore actively supported actions and policies which 
undermine the territorial integrity, sovereignty and independence of Ukraine, 
and further destabilised Ukraine.</justification>
+                       <justification ssid="38566">Currently "aide" to the 
head of the Moscow branch of the Investigative Committee of Russian Federation 
(GSU SK).</justification>
+               </individual>
+       </target>
+</swiss-sanctions-list>
diff --git a/test/data/target_38925.xml b/test/data/target_38925.xml
new file mode 100644
index 0000000..8711ce1
--- /dev/null
+++ b/test/data/target_38925.xml
@@ -0,0 +1,38 @@
+<swiss-sanctions-list list-type="whole-list" date="2024-07-30">
+       <target ssid="38922">
+               <sanctions-set-id>4387</sanctions-set-id>
+               <individual>
+                       <identity ssid="38925" main="true">
+                               <name ssid="38929" name-type="primary-name" 
quality="good" lang="eng">
+                                       <name-part order="1" 
name-part-type="family-name">
+                                               <value>Bezruchenko</value>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Bezruchenko</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">БЕЗРУЧЕНКО</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="LATN" spelling-variant-type="not-defined">Bezruchenko</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="CYRL" spelling-variant-type="not-defined">БЕЗРУЧЕНКО</spelling-variant>
+                                       </name-part>
+                                       <name-part order="2" 
name-part-type="given-name">
+                                               <value>Natalya</value>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Natalia</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">Наталья</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="LATN" spelling-variant-type="not-defined">Nataliya</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="CYRL" spelling-variant-type="not-defined">Наталія</spelling-variant>
+                                       </name-part>
+                                       <name-part order="3" 
name-part-type="father-name">
+                                               <value>Ivanovna</value>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Ivanovna</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">Ивановна</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="LATN" spelling-variant-type="not-defined">Ivanivna</spelling-variant>
+                                               <spelling-variant lang="UKR" 
script="CYRL" spelling-variant-type="not-defined">Iванівна</spelling-variant>
+                                       </name-part>
+                               </name>
+                               <day-month-year ssid="38927" day="22" month="8" 
year="1979" calendar="Gregorian" quality="good"/>
+                               <place-of-birth ssid="38928" place-id="28333" 
quality="good"/>
+                               <address ssid="38926" place-id="38924" 
quality="good">
+                                       <address-details>Gresovskoe, 5-A, 
Kryzhizhanovskogo str., apt. 64</address-details>
+                               </address>
+                       </identity>
+                       <justification ssid="38923">Secretary of the Crimea 
Electoral Commission. In this capacity she participated in the organisation of 
the Russian presidential elections of 18 Mar 2018 in the illegally annexed 
Crimea and Sevastopol, and thereby actively supported and implemented policies 
that undermine the territorial integrity, sovereignty and independence of 
Ukraine.</justification>
+               </individual>
+       </target>
+</swiss-sanctions-list>
diff --git a/test/data/target_43611.xml b/test/data/target_43611.xml
new file mode 100644
index 0000000..17a1a17
--- /dev/null
+++ b/test/data/target_43611.xml
@@ -0,0 +1,32 @@
+<swiss-sanctions-list list-type="whole-list" date="2024-07-30">
+       <target ssid="43609">
+               <sanctions-set-id>4387</sanctions-set-id>
+               <individual>
+                       <identity ssid="43611" main="true">
+                               <name ssid="43612" name-type="primary-name" 
quality="good" lang="eng">
+                                       <name-part order="1" 
name-part-type="family-name">
+                                               <value>Kalach</value>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Kalach</spelling-variant>
+                                               <spelling-variant lang="BEL" 
script="CYRL" spelling-variant-type="not-defined">КАЛАЧ</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">КАЛАЧ</spelling-variant>
+                                       </name-part>
+                                       <name-part order="2" 
name-part-type="given-name">
+                                               <value>Uladzimir</value>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Vladimir</spelling-variant>
+                                               <spelling-variant lang="BEL" 
script="CYRL" spelling-variant-type="not-defined">Уладзiмiр</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">Владимир</spelling-variant>
+                                       </name-part>
+                                       <name-part order="3" 
name-part-type="father-name">
+                                               <value>Viktaravich</value>
+                                               <spelling-variant lang="RUS" 
script="LATN" spelling-variant-type="not-defined">Viktorovich</spelling-variant>
+                                               <spelling-variant lang="BEL" 
script="CYRL" spelling-variant-type="not-defined">Вiктаравiч</spelling-variant>
+                                               <spelling-variant lang="RUS" 
script="CYRL" spelling-variant-type="not-defined">Викторович</spelling-variant>
+                                       </name-part>
+                               </name>
+                       </identity>
+                       <justification ssid="49850">In his former leadership 
position as Deputy Chairman of the State Security Committee (KGB), he was 
responsible for the participation of the KGB in the repression and intimidation 
campaign in the wake of the 2020 presidential election, in particular arbitrary 
arrests and ill-treatment, including torture, of peaceful demonstrators and 
opposition members. He remains active in the Lukashenka regime as Aide to the 
President of the Republic of Belarus - Inspector [...]
+                       <other-information ssid="49851">Former Deputy Chairman 
of the State Security Committee (KGB); Aide to the President of the Republic of 
Belarus - Inspector for Minsk Region/Oblast</other-information>
+                       <other-information ssid="49852">Rank: 
Major-General</other-information>
+               </individual>
+       </target>
+</swiss-sanctions-list>
diff --git a/test/data/target_6.xml b/test/data/target_6.xml
new file mode 100644
index 0000000..1a51cb1
--- /dev/null
+++ b/test/data/target_6.xml
@@ -0,0 +1,27 @@
+<swiss-sanctions-list list-type="whole-list" date="2024-07-30"> 
+       <target ssid="6">
+               <sanctions-set-id>27286</sanctions-set-id>
+               <individual sex="male">
+                       <identity ssid="6" main="true">
+                               <name ssid="6" name-type="primary-name" 
quality="good" lang="eng">
+                                       <name-part order="1" 
name-part-type="family-name">
+                                               <value>Bowser</value>
+                                               <spelling-variant lang="JAP" 
script="Jpan" spelling-variant-type="not-defined">クッパ</spelling-variant>
+                                       </name-part>
+                                       <name-part order="2" 
name-part-type="given-name">
+                                               <value>King</value>
+                                       </name-part>
+                               </name>
+                               <day-month-year ssid="6" day="13" month="09" 
year="1985" calendar="Gregorian" quality="good"/>
+                               <place-of-birth ssid="6" place-id="49815" 
quality="good"/>
+                       </identity>
+                       <justification ssid="6">He is the arch-nemesis of the 
plumber Mario and the leader of the turtle-like Koopa race. Depicted as a 
fire-breathing monster with a tyrannical personality, Bowser's ultimate goals 
are to kidnap Princess Peach and conquer the Mushroom Kingdom.</justification>
+                       <other-information ssid="6">In Japan, he is titled 
Daimaō (大魔王, Great Demon King").</other-information>
+                       <other-information ssid="6">NOT SUBJECT TO TRAVEL 
RESTRICTIONS ACCORDING TO ARTICLE 29(1)</other-information>
+               </individual>
+       </target>
+       <place ssid="6">
+               <location>Mushroom Kingdom</location>
+               <country iso-code="JP">Japan</country>
+       </place>
+</swiss-sanctions-list>

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]